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*****  INTRODUCTION  *****  jj 

THE  COMPUTER  CENTER  MAKES  AVAILABLE  ON  THE  CDC  COMPUTERS,  IN  I 
ADDITION  TO  THE  NOS/BE  OPERATING  SYSTEM,  A  WIDE  VARIETY  OF  BOTH  j 
SCIENTIFIC  AND  UTILITY  PROGRAMS.  SUBPROGRAMS  AND  CATALOGUED  PROCEDURES.  1 
MOST  OF  THE  ROUTINES  ARE  MAINTAINED  IN  LIBRARIES  ON  PERMANENT  FILES  AND  | 
MAY  BE  INVOKED  BY  THE  APPROPRIATE  (LOADER)  CONTROL  CARDS.  A  FEW 
PROGRAMS  ARE  AVAILABLE  AS  INDEPENDENT  PERMANENT  FILES.  j 

THE  CLI8-SERIES  OF  MANUALS  CONSI5TS  OF  THE  FOLLOWING.  WHICH  % 
DESCRIBE  THE  CONTENTS  OF  THE  VARIOUS  CDC  6000  LIBRARIES  MAINTAINED  BY  f 
THE  COMPUTER  CENTER: 

CL  IB  -  COMPUTER  CENTER  CDC  LIBRARIES 

CLI6/N  -  COMPUTER  CENTER  CDC  LIBRARIES/NSRDC 
(SUBPROGRAMS) 

CLIB/P  -  COMPUTER  CENTER  CDC  LIBRARIES/PROCF1L 
(PROCEDURES) 

CLIB/U  -  COMPUTER  CENTER  CDC  LIBRARIES/UTILITY 
( PROGRAMS 1 

CLIB/M  -  COMPUTER  CENTER  CDC  L1BRARIES/MNSRDC 
(PROGRAMS! 

THIS  MANUAL.  CLIB/P.  IS  A  REFERENCE  MANUAL  WHICH  DESCRIBES  MOST  OF 
CATALOGUED  PROCEDURES  IN  LIBRARY  'PROCFIL'. 


CMLD-81-06  J 
Cr.V  D-81-07  jj 
CMLD-81-08  j 
CMLD-81-09  1 


***  HOW  TO  USE  THIS  MANUAL  **« 


% 


THE  PROCEDURES  ARE  CLASSIFIED  IN  ONE  OR  MORE  FUNCTIONAL  CATEGORIES 
(SEE  PAGE  1-2  FOR  A  LIST  OF  CATEGORIES).  THEY  ARE  LISTED.  BEGINNING  ON 
PAGE  1-5.  UNDER  THE  VARIOUS  CATEGORIES.  THE  INDIVIDUAL  PROCEDURES  ARE 
LISTED.  WITH  DESCRIPTIVE  TITLE.  BEGINNING  ON  PAGE  1-7.  CHAPTER  2 
CONTAINS  ALL  CURRENTLY  AVAILABLE  MACHINE-READABLE  DOCUMENTS  DESCRIBING 
THE  USE  OF  PROCEDURES  IN  LIBRARY  'PROCFIL'. 


***  LIBRARY  PROCFIL  *** 

A  CATALOGUED  PROCEDURE  IS  A  SET  OF  CONTROL  CARDS  WHICH  ACCOMPLISH  A 
TASK.  LIBRARY  ' PROCFIL'  CONTAINS  MANY  DTNSRDC  WRITTEN  AND/OR  SUPPORTED 
PROCEDURES. 


***  EXECUTING  A  PRODECURE  *** 

MOST  OF  THE  PROCEDURES  MAY  BE  EXECUTED  BY: 

BEGIN. <PROCNAME> , . <PARAMET£RS> . 

THE  INDIVIDUAL  DOCUMENTS  DESCRIBE  THE  <PARAMETERS> ,  IF  ANY.  AND  THE 
METHOD  OF  EXECUTION. 
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***  FUNCTIONAL  CATEGORIES  *** 

THE  FOLLOWING  FUNCTIONAL  CATEGORIES  ARE  USED  AT  DTNSRDC.  THOSE 
CATEGORIES  PRECEDED  BY  AN  ASTERISK  (*)  ARE  LOCAL  DTNSRDC  CATEGORIES. 
THE  OTHER  ARE  FROM  THE  VIM  (CDC  USERS  GROUP)  LIST. 


AO  ARITHMETIC  ROUTINES 
At  REAL  NUMBERS 
A2  COMPLEX  NUMBERS 
A3  DECIMAL 
A 4  I/O  ROUTINES 

BO  ELEMENTARY  FUNCTIONS 
B 1  TRIGONOMETRIC 
B2  HYPERBOLIC 

B3  EXPONENTIAL  AND  LOGARITHMIC 
B4  ROOTS  AND  POWERS 


CO  POLYNOMIALS  AND  SPECIAL  FUNCTIONS 
Cl  EVALUATION  OF  POLYNOMIALS 
C2  ROOTS  OF  POLYNOMIALS 

C3  EVALUATION  OF  SPECIAL  FUNCTIONS  INON-STATJSTICAL > 

C4  SIMULTANEOUS  NON-LINEAR  ALGEBRAIC  EQUATIONS 
C5  SIMULTANEOUS  TRANSCENDENTAL  EQUATIONS 

*  C6  ROOTS  OF  FUNCTIONS  { 

€ 

DO  OPERATIONS  ON  FUNCTIONS  AND  SOLUTIONS  OF  DIFFERENTIAL  EQUATIONS 
Dl  NUMERICAL  INTEGRATION 

D2  NUMERICAL  SOLUTIONS  OF  ORDINARY  DIFFERENTIAL  EQUATIONS 
D3  NUMERICAL  SOLUTIONS  OF  PARTIAL  DIFFERENTIAL  EQUATIONS 
D4  NUMERICAL  DIFFERENTIATION 


EO 

F  1 


INTERPOLATION  AND  APPROXIMATIONS 
TABLE  LOOK-UP  AND  INTERPOLATION 
CURVE  FITTING 


E3  SMOOTHING 

E4  MINIMIZING  OR  MAXIMIZING  A  FUNCTION 


FO  OPERATIONS  ON  MATRICES.  VECTORS 
FI  VECTOR  AND  MATRIX  OPERATIONS 
F2  EIGENVALUES  AND  EIGENVECTORS 
F3  DETERMINANTS 


F 4  SIMULTANEOUS  LINEAR  EQUATIONS 


SIMULTANEOUS  LINEAR  EQUATIONS 


GO  STA-iSTICAL  ANALYSIS  AND  PROBABILITY 

61  DATA  REDUCTION  (COMMON  STATISTICAL  PARAMETERS) 

G2  CORRELATION  AND  REGRESSION  ANALYSIS 
63  SEQUENTIAL  ANALYSIS 
G4  ANALYSIS  OF  VARIANCE 
G5  TIME  SERIES 

66  SPECIAL  FUNCTIONS  (INCLUDES  RANDOM  NUMBERS  AND  PDF'S) 

*  G7  MULTIVARIATE  ANALYSIS  AND  SCALE  STATISTICS 

*  68  NON- PARAMETRIC  METHODS  AND  STATISTICAL  TESTS 

*  G9  STATISTICAL  INFERENCE 
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HO  OPERATIONS  RESEARCH  TECHNIQUES,  SIMULATION  &  MANAGEMENT  SCIENCE 

HI  LINEAR  PROGRAMMING 

H2  NON-LINEAR  PROGRAMMING 

H3  TRANSPORTATION  AND  NETWORK  CODES 

HA  SIMULATION  MODELING 

H5  SIMULATION  MODELS 

H6  CRITICAL  PATH  PROGRAMS 

H8  AUXILIARY  PROGRAMS 

H9  COMBINED 

10  INPUT 

11  BINARY 

12  OCTAL 

13  DECIMAL 

14  BCD  (HOLLERITH'S 
19  COMPOSITE 

JO  OUTPUT 
J1  BINARY 
J2  OCTAL 
J3  DECIMAL 
J4  BCD  (HOLLERITH* 

J5  PLOTTING 
J7  ANALOG 
J9  COMPOSITE 

KO  INTERNAL  INFORMATION  TRANSFER 
K 1  EXTERNAL-TO-EXTERNAL 
K2  1NTERNAL-T0- INTERNAL  (RELOCATION) 

K3  DISK 
K4  TAPE 

K5  DIRECT  DATA  DEVICES 

LO  EXECUTIVE  ROUTINES 
LI  ASSEMBLY 
12  COMPILING 
L3  MONITORING 

14  PREPROCESSING 

15  DISASSEMBLY  AND  DERELATI V1Z1NG 
L6  RELAT1VIZING 

17  COMPUTER  LANGUAGE  TRANSLATORS 


MO  DATA  HANDLING 
Ml  SORTING 

M2  CONVERSION  AND/OR  SCALING 
M3  MERGING 

M4  CHARACTER  MANIPULATION 
M5  SEARCHING,  SEEKING,  LOCATING 
M6  REPORT  GENERATORS 
M9  COMPOS1 TE 

NO  DEBUGGING 
N 1  TRACING  AND  TRAPPING 
N2  DUMPING 

N3  MEMORY  VERIFICATION  AND  SEARCHING 
N4  BREAKPOINT  PRINTING 


CDC  6000 


FEB  1981 


PAGE  1-4 


00 

01 

03 

04 

05 

09 


SIMULATION  OF  COMPUTERS  AND  DATA  PROCESSORS  (INTERPRETERS) 
OFF-LINE  EQUIPMENT  (LISTERS,  REPRODUCERS,  ETC.) 

COMPUTERS 

PSEUDO-COMPUTERS 

SOFTWARE  SIMULATION  OF  PERIPHERALS 
COMPOSITE 


PO  DIAGNOSTICS  (HARDWARE  MALFUNCTION) 


QO  SERVICE  OR  HOUSEKEEPING.  PROGRAMMING  AIDS 
Q1  ClEAR/RESET 

Q2  CHECKSUM  ACCUMULATION  AND  CORRECTION 

03  REWIND.  TAPE  MARK.  LOAD  CARDS,  LOAD  TAPE  PROGRAMS.  ETC. 

04  INTERNAL  HOUSEKEEPING.  SAVE.  RESTORE.  ETC. 

05  REPORT  GENERATOR  SUBROUTINES 

06  PROGRAM  DOCUMENTATION:  FLOW  CHARTS.  DOCUMENT.  STANDARDIZATION 
07  PROGRAM  LIBRARY  UTILITIES 


RO  LOGIC  AND  SYMBOLIC 
PI  FORMAL  LOGIC 
R2  SYMBOL  MANIPULATION 
R3  LIST  AND  STRING  PROCESSING 
R4  TEXT  EDITING 

SO  INFORMATION  RETRIEVAL 


TO  APPLICATIONS  AND  APPLICATION-ORIENTED  PROGRAMS 
T 1  PHYSICS  (INCLUDING  NUCLEAR) 

T2  CHEMISTRY 

T3  OTHER  PHYSICAL  SCIENCES  (GEOLOGY.  ASTRONOMY.  ETC.) 

T  4  ENGINEERING 
T5  BUSINESS  DATA  PROCESSING 

16  MANUFACTURING  (NON-DATA)  PROCESSING  AND  PROCESS  CONTROL 
T7  MATHEMATICS  AND  APPLIED  MATHEMATICS 
T8  SOCIAL  AND  BEHAVIORAL  SCIENCES  AND  PSYCHOLOGY 
19  BIOLOGICAL  SCIENCES 

T 1 0  REGIONAL  SCIENCES  (GEOGRAPHY.  URBAN  PLANNING) 

Til  COMPUTER  ASSISTED  INSTRUCTION 

UO  LINGUISTICS  AND  LANGUAGES 


VO  GENERAL  PURPOSE  UTILITY  SUBROUTINES 
VI  RANDOM  NUMBER  GENERATORS 

V2  COMBINATORIAL  GENERATORS:  PERMUTATIONS,  COMBINATIONS  &  SUBSETS 
*  V3  STANDARD  AND  SPECIAL  PROBLEMS 

XO  DATA  REDUCTION 

XI  RE-FORMATTING.  DECOMMUTATION.  ERROR  DIAGNOSIS 
X2  EDITING 
X3  CALIBRATION 
X4  EVALUATION 

X5  ANALYSIS  (TIME-SERIES  ANALYSIS) 

X6  SIMULATION  {GENERATE  TEST  DATA  FOR  DATA  REDUCTION  SYSTEM) 

YO  INSTALLATION  MODIFICATION 

: 1  INSTALLATION  MODIFICATION  LIBRARY 

Y2  NEWPL  TAPE  OF  INSTALLATION  MODIFICATIONS 


ZO  ALL  OTHERS 


,v*" 1 
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***  LIST  OF  PROCEDURES  BY  CATEGORY  *** 

THE  PUBLIC-ACCESS  PROCEDURES  ARE  LISTED  BELOW  UNDER 


FUN 

ICTIONAL  CATEGORIES. 

AN  ALPHABETICAL  LIST. 

WITH  A  BRIEF 

OF 

EACH  PROCEDURE  BEGINS 

ON  PAGE  1-7. 

J1 

BINARY 

CV029 

J4 

BCD  (HOLLERITH! 

BANNERS 

LINES 

PM 

COMQ 

LINES 

•J5 

PLOTTING 

CALC3D 

K 1 

external-to-external 

COPYS 

RECADDl 

RECGET1 

PF7RAN1 

RECDEL1 

RECRBP1 

K3 

DISK 

CGPYLIB 

UPDADD 

UPDGET T 

PR0S2R 

UPDDELE 

UPDREPL 

SELOUMP 

UPDGET 

TRANP&K 

UPD6ETS 

K4 

TAPE 

B77G0S 

COPYBLK 

B7700U 

SELLOAD 

LO 

EXECUTIVE  ROUTINES 

ANYLIB 

LIBPROA 

NOGO 

ANY PRO 

LIBSET 1 

PROGRAM 

ANY PROS 

L1BSET2 

SEGLD 

BIGLOAD 

MNSRDC 

S2K260 

DISPOST 

MY  PRC 

utility 

LIBPRO 

MY PROS 

l  ft 

L<£ 

COMPILING 

RUNBAS 

RUNMNF 

RUHSEQ 

RUNFTN 

RUNPAS 

RUNTS 

Ml 

SORTING 

AUDIT 

SORT 

SORTCZ 

M2 

CONVERSION  AND/OR  SCALING 

BR2CCL 

CV029 

f%  n 

M  i 

OFF-LINE  EQUIPMENT  (LISTERS.  REPRODUCERS. 

ETC. » 

CV029 

MANUAL 

RECDOC 

DOCDATE 

PROAll 

TIDBITS 

DOCDOC 

PRODOC 

UPDDOC 

LIST 

PROUST 

UPDLIST 

5 


THEIR 
IP!  I  ON 


FEB  1981 


PAGE  1-6 


CDC  6000 


AC 

*40 


F 1 ! 


X  L 


AUDIT 

•  t  i  nwurvM 

COMQ 

BANNERS 

GET PROD 

BDT 

MFX 

E  MANIPULATION 

ANYLI8 

LIBPROA 

ANYPRO 

LIBSET1 

ANY PROS 

LIBSET2 

BIGLOAD 

MNSRDC 

DISPOST 

MYPRO 

LIBPRO 

MY PROS 

I NTERNAL 
ADDS* 
PaC 
PAHC 


-1C  PI 


SAVE.  RESTORE. 
PFRSTOR 
PHC 
PLC 

PURGALL 


ETC. 


NORERUN 

SEND 

WHATLIB 


NOGD 

PROGRAM 

SEGLD 

S2K260 

UPDLIST 

utility 


PURGE N 
RENAMAC 
SELDUMP 
SELLOAD 


QS 


07 


PROGRAM  DOCUMENT J 
DOCADD 
DOCDELE 

docfile 

PROGRAM  LIBRARY 
COPYUB 
PROADD 
PRODELE 
PROSE T 
PHOHDR 


LU»  w«-' 

DOCGE T 

?  c  T 

uU%rLihl 


UTILITIES 

PRONAK 

PROREPl 

PROS2R 


UPDAOD 


bu 


INfORMATII 

AUDIT 


IN  RETR1E 


r  AL 


jRJPI 


DOCUMENT  STANDARDIZATION 
DOCTAPt 
LGOTREE 
PGMTAPE 


UPDGET 
UPDGETS 
UPDGET T 
UPDREPl 


CDC  6000 


PAGE  1-7 


FEB  1981 


THE 

ADDEXT 
ANYLIB 
ANY PRO 
ANYPROS 


DESCRIPTIVE  TITLES  *** 

PUBLIC-ACCESS  PROCEDURES  ARE  LISTED  ALPHABETICALLY  BELOW. 
MODIFY  PRIVATE  PACK  DUM  FILE  FOR  LEVEL  508  DUMPF/LOADPF 
EXECUTE  A  PROGRAM  ON  ANY  EDITLIB  USER  LIBRARY 
EXECUTE  A  PROCEDURE  ON  ANY  CATALOGUED  RANDOM  PROCEDURE  FILE 


K  i  1*1  l  liil  i 

BR2CCL 

B7700S 

B7700U 


I  ? 


IN07E 


I  JIM!  Hi  H 


pfiln 


pxFrii 


1  i 


PROCEDURE  ON  ANY  CATALOGUED  SEQUENTIAL  PROCEDURE 


FILE 

SORTED  USER  AUDIT 

PRINT  A  PAGE  WITH  1  TO  8  BANNERS 

PRINT  A  BANNER  PAGE  WITH  DATE  AND  TIME 


A  A  ^ 

Chl  ^ i £ 

tn  1  fi£* 

f  M  i_ 


AN  ABSOLUTE  FILE  WHICH  WILL  ALLOW  SOME  LARGE  PROGRAM; 
IN  LESS.  CORE  THAN  NORMALLY  NEEDED  * 


CONVERT  SEQUENTIAL  i UNIVERSITY  OF  WASHINGTON)  BEGIN/REVERT 
PROCEDURE  FILE  TO  SEQUENTIAL  f CDC- SUPPORTED  I  CYBER  CONTROL 
LANGUAGE  FILE  AND.  OPTIONALLY.  CATALOG  THE  CCL  FILE 

PREPARE  9-TRACK  EBCDIC  TAPE  TO  MOVE  A  SINGLE  CARD-IMAGE 
PERMANENT  FILE  FROM  THE  CDC  6000  TO  THE  BURROUGHS  B7700 

PREPARE  9-TRACK  EBCDIC  TAPE  TO  MOVE  A  SINGLE  DECK  OR  ALL 
DECKS  IN  AN  UPDATE  LIBRARY  FROM- THE  CDC  6000  TO  THE  BURROUGHS 

B770Q 

THREE-D  PROCEDURE  FOR  CALCOMP  PLOTTERS 

PRINT  A  COMPUTER  CENTER  NOTE  OR  THE  CCN  INDEX 

PREPARE  AND  ROUTE  A  FILE  TO  THE  MICROFICHE  QUEUE 


REBLOCK  STRANGER  TAPES  TO  SCOPE  STANDARD  FILES  »EOTH 
UNBLOCKED  CARD  AND  PRINT  LINE  IMAGE  TAPES  AND  BLOCKED 
STRANGER  TAPES) 

CONDENSE  I  AND  SORT}  AN  EDITLIB  USER  LIBRARY  PRESERVING  al, 
Fl,  FLO  VALUES.  B INDEX  AND  LISTBIN  LISTS  ARE  PROVIDED. 

ATTACH.  EXECUTE  AND  RETURN  THE  RIQSCOPYS  PROGRAM 


Cvu^s 

CONVERT  TO  029  PUNCH 

CODE 

OISPOST 

INVOKE  THE  TEKTRONIX 

POSTPROCESSOR 

DOCADD 

ADD  ONE  DOCUMENT  TO  t 

A  DOCUMENTATION  FILE 

LIST  DOCUMENT  NAMES  (ON  -DECK  CARDS)  TOGETHER  WITH  THE 
DOCUMENT  DATE  AND  PAGE  NUMBERS  (FROM  BOTTOM  LINE  OF  EACH 

f*  *  a 

- 
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DOCDELE  DELETE  ONE  DOCUMENT  FROM  A  DOCUMENTATION  FILE 

DOCDOC  LIST  DOCUMENTATION  FOR  PROCEDURES  DOCADD,  DOCDATE ,  DOCDELE, 
DOCDOC,  DOCFILE,  DOCGET ,  DOCLIST,  DOCREPL 

DOCFILE  ATTACH  A  DOCUMENTATION  FILE 

DOCGET  GET  (EXTRACT)  SPECIFIED  DOCUMENT  FROM  A  DOCUMENTATION  FILE 

DOCLIST  LIST  DOCUMENT  NAMES  (ON  *DECK )  CARDS  IN  A  DOCUMENTATION  FILE 

DOCREPL  REPLACE  ONE  DOCUMENT  IN  A  DOCUMENTATION  FILE 

DOCTAPE  EXTRACT  (PRINT)  ONE  OR  ALL  DOCUMENTS  FROM  A  DOCUMENT  FILE  ON 

TAPE 

GETPROD  GET  PRODUCTS  FILE(S)  FOR  NOS/BE  LEVELS  461,  439,  434,  420, 
414,  410,  406,  401,  380 

GRIPE  ALLOW  USER  TO  MAKE  GRIPES  OR  SUGGESTIONS  DIRECTLY  TO  THE 
COMPUTER  . 

LGOTREE  GENERATE  CROSS-REFERENCE  LISTS  AND  TREE  STRUCTURE  FROM  BINARY 
RELOCATABLE  OBJECT  FILE 

LIBPRO  EXECUTE  A  PROCEDURE  ON  LIBRARY  'PROCF1L'  CATALOGED  UNDER  ANY 
ID 

L1BPROA  EXECUTE  A  PROCEDURE  ON  ANY  CATALOGUED  PROCEDURE  LIBRARY 
LIBSET1  CREATE  SIMPLE  ABSOLUTE  USING  ONE  ED1TLIB  LIBRARY 

LIBSET2  CREATE  SIMPLE  ABSOLUTE  USING  TWO  ED1TLIB  LIBRARIES 

LINE6  SET  PRINT  FILE  TO  6  LINES  PER  INCH 

LINE8  SET  PRINT  FILE  TO  8  LINES  PER  INCH 

LIST  LIST  A  PERMANENT  FILE 

MANUAL  PRINT  ONE  COPY  OF  A  MANUAL  OR  ITS  REVISION  PAGES 

MFX  TELL  INTERACTIVE  USER  WHICH  MAINFRAME  HE  IS  USING 

MNSRDC  EXECjTE  A  PROGRAM  ON  EDITLIB  USER  LIBRARY  ' MNSRDC' 

MYPRO  EXECUTE  A  PROCEDURE  ON  SEQUENTIAL  FILE  'PROCFIL'  CATALOGED 

UNDER  ANY  ID 

MYPROS  EXECUTE  A  PROCEDURE  ON  SEQUENTIAL  FILE  'PROCFILS'  CATALOGED 

UNDER  ANY  ID 

NOGO  CREATE  SIMPLE  ABSOLUTE  FROM  RELOCATABLE 

NORERUN  IN;  ME  THAT  A  BATCH  JOB  CANNOT  BE  RERUN  BY  OPERATOR  TYPE-IN 
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PAC 

PAHC 

PALC 

PFRSTOR 

PFTRAN 1 

PGMTAPE 

PHC 

PLC 

PM 

PROADD 

PROALl 

PRODELE 

PRODOC 

PROGET 

PROGRAM 

PROHDR 

PROUST 

PRONAM 

PRQREPL 

PROS2R 

PURGALL 

PURGEN 


PURGE  ALL  CYCLES  OF  A  FILE 

PURGE  ALL  HIGH  CYCLES  OF  A  FILE  WHILE  RETAINING  THE  LOW  CYCLE 
PURGE  ALL  LOW  CYCLES  OF. A  FILE  WHILE  RETAINING  THE  HIGH  CYCLE 
CREATE  A  FILE  OF  DIRECTIVES  TO  RESTORE  PERMANENT  FILES 
INVOKE  PFTRANS  TO  TRANSFER  ONE  FILE 
EXTRACT  A  SOURCE  PROGRAM  FROM  TAPE 

PURGE  HIGH  CYCLE  OF  A  FILE  WHILE  RETAINING  THE  LOW  CYCLE 

PURGE  LOW  CYCLE  OF  A  FILE  WHILE  RETAINING  THE  HIGH  CYCLE 

CREATE  CERTAIN  PRINT  MESSAGE  (PM)  RECORDS 

ADD  ONE  PROCEDURE  TO  A  SEQUENTIAL  PROCEDURE  FILE 

LIST  PROCEDURE  NAMES.  PROCEDURE  HEADERS  AND  THE  PROCEDURES  IN 
A  SEQUENTIAL  PROCEDURE  FILE  (COMBINES  PRONAM.  PROHDR  AND 
PROLIST ) 

DELETE  ONE  PROCEDURE  FROM  A  SEQUENTIAL  PROCEDURE  FILE 

LIST  DOCUMENTATION  FOR  PROCEDURES  PROADD.  PROALL,  PRODELE, 
PRODOC,  PROGET,  PROHDR,  PROLIST,  PRONAM,  PROREPL ,  PR0S2R 

GET  (EXTRACT)  ONE  PROCEDURE  FROM  A  SEQUENTIAL  PROCEDURE  FILE 

EXECUTE  A  CATALOGED  PROGRAM  (NOT  IN  A  LIBRARY) 

LIST  PROCEDURE  HEADERS  IN  A  PROCEDURE  FILE 

LIST  PROCEDURE ( S )  IN  A  SEQUENTIAL  PROCEDURE  FILE 

LIST  NAMES  OF  PROCEDURES  IN  A  SEQUENTIAL  PROCEDURE  FILE 

REPLACE  ONE  PROCEDURE  IN  A  SEQUEN  IAL  PROCEDURE  FILE 

CONVERT  SEQUENTIAL  PROCEDURE  FILE  TO  RANDOM  EDITLIB  USER 
LIBRARY- 

PURGE  PERMANENT  FILES  OF  SPECIFIED  AC  AND  ID 

GENERATE  PROCEDURE  'PUR'  TO  PURGE  SEVERAL  FILES  WITH  COMMON 
KERNEL 


FEB  1981 


CDC  6000 


PAGE  1-10 


RECADD1  ADD  ONE  OR  MORE  LOGICAL  RECORDS  TO  A  , I LE 

RECDEL1  DELETE  ONE  OR  MORE  LOGICAL  RECORDS  FROM  A  FILE 

RECDOC  LIST  DOCUMENTATION  FOR  PROCEDURES  RECADD1,  RECDEL 1 ,  RECDOC, 
RECGET1,  RECREP1 

RECGET1  EXTRACT  ONE  OR  MORE  LOGICAL  RECORDS  FROM  A  FILE 

RECREP1  REPLACE  ONE  OR  MORE  LOGICAL  RECORDS  IN  A  FILE 

RENAMAC  RENAME  AC  FIELD  ON  PERMANENT  FILES 

RUNBAS  COMPILE  AND  EXECUTE  BASIC  PROGRAM  (SIMILAR  TO  EDITOR  RUN , BAS 
FOR  USE  OUTSIDE  OF  EDITOR) 

RUNFTN  COMPILE  AND  EXECUTE  FTN  PROGRAM  (SIMILAR  TO  EDITOR  RUN , FTN 
FOR  USE  OUTSIDE  OF  EDITOR) 

RUNMNF  COMPILE  AND  EXECUTE  MNF  PROGRAM  UNDER  INTERCOM 

RUNPAS  COMPILE  AND  EXECUTE  PASCAL  PROGRAM  UNDER  INTERCOM 

RUNSEQ  COMPILE  AND  EXECUTE  FTN, SEQ  PROGRAM 

RUNTS  COMPILE  AND  EXECUTE  FTN.TS  PROGRAM 

SEGLD  CREATE  A  SEGLOAD  ABSOLUTE  FILE 

SELDUMP  CREATE  BACKUP  DUMP  TAPE  OF  THE  USER  PERMANENT  FILE  OF  AN 
ACCOUNT  NUMBER 

SELLOAD  RESTORE  SELECTED  ROUTINES  FROM  A  BACKUP  DUMPF  TAPE 

SEND  SEND  MESSAGES  TO  AN  INTERCOM  USER  WHO  IS  NOT  LOGGED  IN;  LIST 

MESSAGES 

SORT  INVOKE  SORTMRG  TO  SORT  UP  TO  5  'DISPLAY'  FIELDS  USING 

'■  COBOL6'  COLLATING  SEQUENCE 

SORTCZ  INVOKE  SORTMRG  TO  SORT  UP  TO  5  'DISPLAY'  FIELDS  IN  BT=C,RT=Z 

RECORDS  USING  ' C0B0L6'  COLLATING  SEQUENCE  ('FILE'  CARDS  NOT 
REQUIRED! 

S2K260  ATTACH  FILES  FOR  S2000  (VERSION  2.60)  NATURAL  LANGUAGE, 

FORTRAN,  OR  COBOL  PRECEDURAL  LANGUAGE  INTERFACE 


TIDBITS  LIST  FILE  OF  TIDBITS  (HINTS  ON  IMPROVED  COMPUTER  USAGE) 
TRANPAK  COPY  CONTENTS  FROM  ONE  DEVICE  SET  TO  ANOTHER  FOR  BACKUP 
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UPDADD 

ADD  ONE  DECK  TO  AN  UPDATE  LIBRARY 

UPDDELE 

DELETE  ONE  DECK  FROM  AN  UPDATE  LIBF  ‘ 

;y 

UPDDOC 

LIST  DOCUMENTATION  FOR  PROCEDURES  UPDADD,  UPDDELE,  UPDDOC, 
UPDGET,  UPDLIST,  UPDREPL 

UPDGET 

EXTRACT  ONE  DECK  FROM  AN  UPDATE 
OPTIONALLY,  ADD  EDITOR  SEQUENCING 

LIBRARY 

(UPDATE, C) 

AND, 

UPDGETS 

EXTRACT  ONE  DECK  FROM  AN  UPDATE 
OPTIONALLY,  ADD  EDITOR  SEQUENCING 

LIBRARY 

( UPDATE , S 1 

AND, 

UPDGETT 

EXTRACT  ONE  DECK  FROM  AN  UPDATE 
OPTIONALLY ,  ADD  EDITOR  SEQUENCING 

LIBRARY 

(UPDATE. T ) 

AND, 

UPDLIST 

LIST  DECK/COMDECK  NAMES  IN  UPDATE 
RECORDS  IN  EACH  DECK/COMDECK 

LIBRARY 

WITH  COUNT 

'  OF 

UPDREPL 

REPLACE  ONE  DECK  IN  AN  UPDATE  LIBRARY 

UTILITY 

EXECUTE  A  PROGRAM  ON  EDITLIB  USER  LIBRARY  'UTILITY' 

VENUS 

ATTACH  AND  EXECUTE  ONE  OF  THE  VENUS 

RETRIEVAL 

PROGRAMS 

WHATLI6  LIST  LIBRARIES  SPECIFIED  IN  LAST  'LIBRARY'  COMMAND 
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*****  PROCEDURE  DOCUMENTATION  ***** 

THIS  CHAPTER  CONTAINS  THE  DOCUMENTATION  FOR  ALL  PROCEDURES  IN 
PUBLIC-ACCESS  PROCEDURE  FILE  'PROCFIL'. 


***  HOW  TO  PRINT  A  DOCUMENT  *** 

INDIVIDUAL  DOCUMENTS  MAY  BE  PRINTED  USING: 

BEGIN, DOCGET, , PROCF I L ,, <PROCNAME> .OUTPUT . 

WHERE  <PROCNAME>  IS  THE  DESIRED  DOCUMENT. 

SEVERAL  DOCUMENTS  MAY  BE  PRINTED  AT  ONE  TIME  USING: 

JOBNAME . 

CHARGE  ,  . . 

BEGIN. UTILITY , , MANYDOC , PROCF I L . 

'  7/6/9  EOR 

<-PROCNAME  1  > 

<PROCNAME2> 

<PROCNAMEN> 

”  6/7/ 8/9  EOI 


PROCEDURE  'ADDEXT' 


PURPOSE 

MODIFY  PRIVATE  PACK  DUIY!  FILE  FOR  LEVEL  508  DUMPF/LOADPF 

FUNCTIONAL  CATEGORIES:  Q4 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN , ADDEXT , , VSN . SN , RD . MD . CN , EX , UTK  . 

DESCRIPTION  OF  PARAMETERS 

VSN  -  PACK  VOLUME  SERIAL  NUMBER 

SN  -  PACK  SET  NAME 

RD.MD.CN  -  CURRENT  PASSWORDS  (FROM  PACK  INITIALIZATION) 

EX  -  PASSWORD  FOR  LEVEL  508  LOADPF  USE 

UTK  -  USER  TURNKEY  (IF  PASSWORD  IS  ON  PACK) 

DEFAUL’  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT 

MAX  Fl: 


REMARKS 

MU$T  BE  RUN  ON  LEVEL  508  NOS/BE. 

THE  SYSTEM  TURNKEY  PASSWORD  IS  REMOVED  FROM  DUM  FILE:  AN 
EXTEND  PASSWORD  IS  ADDED  TO  ALLOW  LOADPF  AT  LEVEL  508  TO  RUN 
ON  PACKS  INITIALIZED  AT  LEVEL  461  OR  BEFORE. 


AUTHOR 

SHARON  E  GOOD  -  DTNSRDC  CODE  1892.1 
DATE  WRITTEN:  09/19/80 
DATEiS;  REVISED 


4s*  % 

is 

~4 


yi 

u 


L 

ip  i 


02/05/81 


ADDEXT 
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PROCEDURE  ' ANYLIB' 


PURPOSE 

EXECUTE  A  PROGRAM  ON  ANY  EDIT  LIB  USER  LIBRARY 

FUNCTIONAL  CATEGORIES:  LO  Q3 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN. ANYLIB, , L IB , ID , PROG , PARAMS . 

DESCRIPTION  OF  PARAMETERS 

LIB  -  1-40  CHARACTER  LIBRARY  PFN 
ID  -  ID  IT  IS  CATALOGED  UNDER. 

■DEFAULT:  SYSTEM  PUBLIC  ACCESS  ID! 

USE  0  (ZERO)  IF  FILE  IS  ALREADY  ATTACHED 
AND  IS  TO  REMAIN  ATTACHED  AT  THE  END  OF  THE 
PROCEDURE. 

PROG  -  PROGRAM  TO  BE  EXECUTED 
PARAMS  -  UP  TO  13  PARAMETERS  FOR  'PROG' 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL:  DEPENDS  ON  PROGRAM  BEING  EXECUTED 

REMARKS 

NONE 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 

DATE  WRITTEN:  1975 

DATE ( S J  REVISED 

03/01/78  -  CONVERT  TO  CCL 


PROCEDURE  'ANYPRO' 

PURPOSE 

EXECUTE  A  PROCEDURE  ON  ANY  CATALOGUED  PROCEDURE  FILE 

FUNCTIONAL  CATEGORIES:  LO  Q3 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, ANYPRO. .PFN. ID , PRO . PARAMS. 

DESCRIPTION  OF  PARAMETERS 

PFN  -  PERMANENT  FILE  NAME  OF  PROCEDURE  FILE 
ID  -  ID  UNDER  WHICH  PFN  IS  CATALOGED 

PRO  -  PROCEDURE  NAME 

PARAMS  -  UP  TO  17  POSITIONAL  PARAMETERS  FOR  PROCEDURE  'PRO' 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL:  DEPENDS  UPON  PROCEDURE  BEING  EXECUTED 


REMARKS 

SEE  'MY PRO 


r HE  PFN  IS  ' PROCFIL' 


AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 
DATE  WRITTEN:  07/21/76 
DATE! SI  REVISED 


01/21 /EM 


ANYPRO 


. . . . . 


PROCEDURE  'ANYPROS' 

PURPOSE 

EXECUTE  A  PROCEDURE  ON  ANY  CATALOGUED  SEQUENTIAL  PROCEDURE 
FILE 

FUNCTIONAL  CATEGORIES:  LO  Q3 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN , ANYPROS. , PFN , ID , PNAME . PARAMS. 

DESCRIPTION  OF  PARAMETERS 

PFN  -  PERMANENT  FILE  NAME  OF  PROCEDURE  FILE 
ID  -  ID  UNDER  WHICH  IT  IS  CATALOGED 

PNAME  -  PROCEDURE  NAME 

DARAMS  -  UP  TO  17  POSITIONAL  PARAfvlETERS  FOR  PROCEDURE  'PRO' 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

‘  MAX  FL:  DEPENDS  UPON  PROCEDURE  BEING  EXECUTED 


REMARKS 

NONE 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 
DATE  WRITTEN:  10/29/79 
DATE { S  1  REVISED 


79 
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PROCEDURE  'AUDIT' 


PURPOSE 

SORTED  I  FAST  I  USER  AUDIT 

FUNCTIONAL  CATEGORIES:  QO  SO  Ml 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN. AUDIT. . <KE YWORD-PARAMETERS> . 

DESCRIPTION  OF  PARAMETERS 

ALL  'AUDIT'  PARAMETERS  ARE  SUPPORTED  WITH  ONLY  THREE 
RESTRICTIONS: 

1i  MULTIPLE  ID'S  MUST  BE  S-DEL IMI TED  AND  LIMITED  TO  40 
CHARACTERS  (UP  TO  7  ID'S).  WHEN  MULTIPLE  ID'S  ARE 
GIVEN.  A  SEPARATE  PARAMETER  '30M=YES'  MUST  BE 
SPECIFIED.  FOR  EXAMPLE. 

BEGIN. AUDIT, . ID=SID 1 / ID2/ ID3S . <OTHER-PARAMS> . 
IDM='ES. 

2 1  FOR  ■ AC  .  USE  AC  =  AC. 

3 1  IF  PF  IS  SPECIFIED.  IT  MUST  NOT  EXCEED  10  CHARACTERS. 
SORTING  IS  NOT  REALLY  NECESSARY  FOR  PF .  INSTEAD.  USE 
AUDIT . Cp=<PFN> . 

IN  ADDITION.  UP  TO  6  FIELDS  MAY  BE  SORTED  (KEYWORDS  ARE  S1= 
THRU  S8= 1 : 

i A= ASCENDING.  D-DESCENDING ) 

1  A/ ID  -  PF  NAME  -  ALL  SORTS 
2A/2D  -  CYCLE  -  ALL  SORTS 
3A/3D  -ID  -  AC  SORT  ONLY 

4A/4D  -  ACCOUNT  -  ID  (AI=I)  OR 
SEG  -  AC=ddddddddOO 
5A/5D  -  CREATED  -  AC  OR  ID  ( AI=I ) 

6A/6D  -  USED-ON  -  AC  OR  ID  ( Al= I ) 

7A/7D  -  *  USES  -  AC  OR  ID  ( A I  ss  I  I 

8A/BD  -  U  PRUS  -  AC  OR  ID  (A1  =  D 

PL=  MAY  BE  USED  TO  CHANGE  THE  'OUTPUT'  LINE  LIMIT. 

DEFAULT  BEGIN  STATEMENT 

BEGIN, AUDIT. ,ID=<CHG- CRD/LOG IN  I D > , LF  =  OUTPUT , S 1  =  1 A , S2-2D , 
WHEN  AC=ddddddd JOQ  IS  SPECIFIED: 

BEGIN. AUDIT. . ID=<CHG-CRD/LOGIN  ID> , LF=OUTPUT . S1=4A . S2=3A , 
S3=1A.S4=2D. 

MAX  FL:  52000B 

REMARKS 

NONE 
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AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 


DATE  WRITTEN:  03/22/78 


DATE  I S )  REVISED 


03/01/78 

05/10/78 

05/26/78 

10/01/78 

12/18/78 


CONVERT  TO  CCL 

ADD  IDM  PARAMETER  FOR  MULTIPLE 
REWRITE  VALIDATION  ROUTINE 
PROCEDURE  'AUDIT'  REMOVED. 

THIS  PROCEDURE  '  FASTAUD'  RENAME 
ADD  SUPPORT  FDR  SN  PARAMETER 


ID'S 
'  AUDIT' 


PROCEDURE  ' BANNERS 


PURPOSE 

PRINT  A  PAGE  WITH  1  TO  8  BANNERS 

FUNCTIONAL  CATEGORIES:  J4 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN , BANNERS , . OUTPUT . NBANR . B 1 , B2 , B3 , 84 , B5 , B6 , B7 , B8 . 

DESCRIPTION  OF  PARAMETERS 
OUTPUT  -  LISTABLE  OUTPUT 
NBANR  -  NUMBER  OF  BANNERS  TO  PRINT  10-8) 

(0  -  PROGRAM  WILL  DETERMINE  NUMBER  OF  BANNERS  AND 
ADD  DATE  AND  TIME  BANNERS.  IF  THERE  IS  ROOM) 
51-88  -  UP  TO  8  BANNERS  (1-10  CHARACTERS  EACH? 

THE  FOLLOWING  ARE  RECOGNIZED  FOR  ANY  BI : 

CPU  -  MACHINE  JOB  IS  RUNNING  ON 

DATE  -  CURRENT  DATE 

TIME  -  CURRENT  TIME 

DEFAULT  BEGIN  STATEMENT 

BEGIN . BANNERS , . OUTPUT . 0 , CPU . DATE . TIME . 

MAX  FI:  340006 

remark ^ 

1.  2,  3,  5.  AND  6  BANNERS  ARE  PRINTED  AT  6  LINES/INCH. 

4.  7  AND  8  BANNERS  ARE  PRINTED  AT  8  LINES/INCH  WITH  THE 
PRINTER  RESTORED  TO  6  LINES/INCH  AT  END-OF-PROCEDURE - 

AUTHORS 

GARY  L  STUMP  -  DTNSRDC  CODE  2731 
DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 

DATE  WRITTEN:  03/22/78  -  GLS 

DATE ( S )  REVISED 
06/23/78  -  DVS 


* 
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PROCEDURE  '  BDT' 

PURPOSE 

PRINT  A  BANNER  PAGE  WITH  DATE  AND  TIME 

functional  categories*  qo 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN. BDT. .OUTPUT. 
description  of  parameter 

OUTPUT  -  LI  STABLE  OUTPUT 

default  begin  statement 

BEGIN. BDT. .OUTPUT. 

WAX  FL:  23000B 
remarks 

NONE 

AUTHOR 

DuviD  V  SOMMFR  -  DTNSRDC  CODE  1692.2 
DATE  WRITTEN;  EARLY  1975 

D/TEISi  revised 

03/ 01/78  -  CONVERT  TO  CCL 


?B 


BD 


PROCEDURE  'BIGLOAD' 

PURPOSE 

CREATE  AN  ABSOLUTE  FILE  WHICH  WILL  ALLOW  SOME  LARGE 
PROGRAMS  TO  LOAD  IN  LESS  CORE  THAN  NORMALLY  NEEDED 

FUNCTIONAL  CATEGORIES:  LO  Q3 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, BIGLOAD, , PROGRAM, FL.LFN. ID, PW1.PW2. 

DESCRIPTION  OF  PARAMETERS 

PROGRAM  -  NAME  OF  USER' S  PROGRAM 

(THIS  WILL  ALSO  BE  THE  LFH  OF  THE  GENERATED  FILE* 
FL  -  AT  LEAST  EXACT  OCTAL  FIELD  LENGTH  REQUIRED  TO 

EXECUTE  THE  USER'  S  PROGRAM 

(E.G..  60000  (THE  B  AT  THE  END  IS  HOT  SPECIFIED!? 
t  pm  -  !  fn  nr  iivs'n  £B<;ntiiTF  drogeam 


60000  t 

T  HE  B 

THE  END 

IS 

HO' 

USER'  S  . 

ABSQL 

UTE 

PROGRAM 

BE  THE 

SAME 

h  c 

< PROGRAM 

>  1 

CIFIED. 

the 

USE 

R’S  PROGR 

AM 

ON¬ 

tiff  i  y  in. 

!  | 

W  FIL 

t  x 

PROGRAM> 

AFT 

ER 

IF  ZED. 

FILE 

<PR 

OGRAM>  WI 

LL 

BE 

PROGRAM i 

ID  -  IF  SPECIFIED,  FILE  <PROGRAM>  WILL  BE  CATALOGED 

WITH  PPM  OF  PROGRAM/  UNDER  THIS  ID 
PWI.PK2  -  IF  ID  SPECIFIED.  THESE  ARE  PASSWORDS  FOR  THE 

CATALOG  ( PW= I 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL:  47000B 

REMARKS 

BEFORE  EXECUTING  THIS  PROCEDURE.  THE  ABSOLUTE  USER'S  PROGRAM 
SHOULD  BE  ATTACHED  OR  CREATED  (WITH  AN  LFN  OTHER  THAN  THE 
PROGRAM  NAME!.  THIS  PROCEDURE  WILL  THEN  CREATE  A  NEW  FILE 
WITH  LFN  OF  <PROGRAB>  WHICH  CONTAINS  A  SHORT  COMPASS  PROGRAM 
FOLLOWED  BY  THE  USER'S  ABSOLUTE  PROGRAM. 

THE  LOADER  LOADS  THE  COMPASS  PROGRAM  WHICH  IN  TURN  LOADS  THE 
USER' S  PROGRAM. 

ERROR  MESSAGES 

FL  NOT  SPECIFIED 

■'I  PARAMETER  MUST  BE  SPECIFIED 

PROGRAM  CANNOT  BE  SAME  AS  LFN 

PARAMETERS  1  AND  3  MUST  BE  DIFFERENT 


t  )i 


fit  /  1  «  »  O  4 

V  !  /  i.  i  <  fc  I 


PROGRAM  NOT  SPECIFIED 

PROGRAM  PARAMETER:  MUST  BE  SPECIFIED 


EXAMPLE  .  _ „ 

COMPILE  PR'^RAM,  CREATE  AND  CATALOG  NEW  LOAD  FILE,  EXECUTE: 

ATTACH, IN, SOURCEPROGRAM. 1D=XXXX.  SOURCE  FOR  <MYPROG> 
FTN, l=IN,OPT= 1 , L=0 . 

*  LOAD.LGO.  OR  XEQ , LOAD=LGO , NOGO=ABS  (INTERCOM! 

*  NOGO.ABS. 

BEGIN , BIGLOAD , .MYPROG, 57000, ABS.XXXX. 

MYPROG . 

*  NOTE:  IF  <MYPROG>  IS  AN  OVERLAY,  THE  ABSOLUTE  WILL  BE 
GENERATED  ON  THE  FILE  SPECIFIED  IN  THE  OVERLAY 
CARD.  THIS  LFN  MUST  BE  CHANGED  (USE 
BATCH , LFN 1 , RENAME , LFN2  IN  INTERCOM  OR  COPY  TO 
ANOTHER  FILE)  BEFORE  USING  BIGLOAD. 

AUTHOR 

DAVID  V  SOMMER  *  DTNSRDC  CODE  1892.2 

DATE  WRITTEN:  11/09/77 

DATE i S  >  REVISED 

03/01/78  -  CONVERT  TO  CCL 
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PROCEDURE  ' BR2CCL' 

PURPOSE 

CONVERT  SEQUENTIAL  (UNIVERSITY  OF  WASHINGTON)  BEGIN/REVERT 
PROCEDURE  FILE  TO  SEQUENTIAL  ( CDC- SUPPORTED )  CYBER  CONTROL 
LANGUAGE  FILE  AND,  OPTIONALLY,  CATALOG  THE  CCL  FILE 

FUNCTIONAL  CATEGORIES:  M2 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 


USAGE 

BEGIN, BR2CCL, ,BR. CCL, ID, OUTPUT. 

DESCRIPTION  OF  PARAMETERS 

BR  -  SEQUENTIAL  BEGIN/REVERT  PROCEDURE  FILE 

CCL  -  OUTPUT  SEQUENTIAL  CCL  PROCEDURE  FILE 
ID  -  IF  SPECIFIED,  <CCL>  WILL  BE  CATALOGED  AS: 

PROCFILS, 1D=<SPECIF IED- ID> 

IF  OMITTED,  <CCL>  WILL  NOT  BE  CATALOGED 
OUTPUT  -  L I  ST  ABLE  OUTPUT 

■CONVERSION  PROGRAM  OUTPUT  AND  LIST  OF  CONVERTED 
PROCEDURE  FILE) 

DEFAULT  BEGIN  STATEMENT 

BEGIN , BR2CCL , , SR, CCL, .OUTPUT. 

MAX  F  L :  100000B 

TIMING:  VERY  SLOW  --  ABOUT  4  B/R  STATEMENTS  PER  CP  SECOND 
REMARKS 

THIS  PROCEDURE  MAY  ONLY  BE  RUN  IN  BATCH  MODE  (WITH  CMIOOOOO 
ON  THE  JOB  CARD). 

ALL  PROCEDURES  MUST  BE  NAMED.  CCL  DOE5  NOT  SUPPORT  UNNAMED 
PROCEDURES. 

ANY  EMBEDDED  BINARY  (OR  DATA)  RECORDS  MUST  BE  REMOVED  BEFORE 
THE  B/R  PROCEDURE  FILE  IS  CONVERTED. 

THE  FIRST  CARD  OF  EACH  LOGICAL  RECORD  IS  ASSUMED  TO  BE  A 
PROCEDURE  HEADER  AND  WILL  BE  CONVERTED.  IF  IT  WAS  AN 
UNNAMED  PROCEDURE  OR  A  DATA  RECORD.  THE  GENERATED  HEADER 
MUST  BE  RESTORED  TO  THE  ORIGINAL  AND,  FOR  AN  UNNAMED 
PROCEDURE.  AN  APPROPRIATE  HEADER  STATEMENT  MUST  BE  ADDED. 

OUTPUT  RECORDS  WILL  BE  UP  TO  90  CHARACTERS  LONG.  CORRECT 
ANY  WHICH  ARE  LONGER  THAN  80  CHARACTERS. 

EDI TL I B  IS  USED  TO  CREATE  RANDOM  PROCEDURE  FILES.  THE  B/R 
PROGRAM  'CPINDEX'  IS  NO  LONGER  AVAILABLE. 
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AUTHORS 

PROCEDURE 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 
CONVERSION  PROGRAM 
S  W  CUMPSTON 
UNIVERSITY  OF  ADELAIDE 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 

DATE  WRITTEN:  02/14/78 

DATE ( S )  REVISED 

03/01/78  -  CONVERT  TO  CCL 


01/21/81 
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BR2CCL 


B/R  FEATURE  RETAINED 

CASE  -  PERMITS  SELECTION  OF  ONE  STATEMENT,  USING  A  GIVEN 
PARAMETER,  FROM  A  SET  OF  CONTROL  STATEMENTS. 


FEATURES  REMOVED 

I F ( MON  -  ALLOW  CONDITIONAL  EXECUTION  DEPENDING  ON  THE  DAY 
IFiTUES  OF  THE  WEEK.  AN  ALTERNATIVE  METHOD  IS  DESCRIBED 
ETC.  BELOW. 

IF  ^  E OR  -  ALLOW  CONDITIONAL  EXECUTION  DEPENDING  ON  WHETHER 
I F ( EOF  THE  LAST  READ  OPERATION  ON  A  GIVEN  FILE 

IFIEQI  ENCOUNTERED  AN  EOR ,  EOF  OR  EOI .  THE  ONLY  TEST 

AVAILABLE  WITH  CCL  IS  THAT  FOR  EOF.  AND  TAKES  THE 
FORM: 

I FE ( F I LE ( LFN . EOF  I  .LABEL' 

CUP  -  DUPLICATE  ONE  OR  MORE  CONTROL  CARDS.  A  S  IN  THE 
ENDUP  DUP  LOOP  IS  REPLACED  BY  THE  NEXT  SEQUENTIAL  NUMBER 

(1.2 _ '.  WH1LE/ENDW  WILL  REPLACE  DUP/ENDUP. 

THE  S  FEATURE  IS  NOT  AVAILABLE  IN  CCL.  THE 
CONVERSION  PROGRAM  WILL  NOT  PROCESS  DUP/ENDUP  OR 
REMOVE  THE  S.  A  SUGGESTED  CHANGE: 


.  B/R . CCL  . 

DUP. 5. 3.  -OR-  DUP.  5.*.  SET. Rial. 

CARD  1  ...  WHILE ,R1 .LE .5. LOOP. 

CARD  2  ENDUP. 

CARD  3  SET  ,  R  1  =R  1  1  . 

ENDW , LOOP . 


5-CCL  DIFFERENCES 
HEADER  STATEMENT 


*  .PROC.*  ADDED  AT  START.  PROCEDURE  NAME  TRUNCATED  TO  7 
CHARACTERS.  IF  NECESSARY,  THE  '  t '  SEPARATOR  IS  CHANGED 
TO  COMMA  AND  THE  TERMINATOR  IS  CHANGED  TO  PERIOD. 


*DATA  *FILE 

*  DATA  AND  *F  I  LE  ARE  REPLACED  BY  ADATA  AND  #F  I  LE . 
RESPECTIVELY,  AND  MAY  BE  USED  ONLY  IN  THE  HEADER 
STATEMENT.  THE  CONVERSION  PROGRAM  WILL  ADD 
' CCLDATA=#DATA , CCLFILE=#FILE'  TO  EACH  HEADER  STATEMENT 
AND  CHANGE  REFERENCES  IN  THE  PROCEDURE  BODY  TO 
CCLDATA  OR  CCLFILE. 
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LABELS 

LABELS  MAY  NOT  BE  OMITTED  OR  CONTAIN  A  NUMERIC  LINE 
COUNT.  A  LABEL  STARTING  WITH  AN  ALPHABETIC  CHARACTER 
MUST  BE  SUPPLIED. 

SKIP 

LABEL  MAY  NOT  BE  OMITTED  OR  CONTAIN  A  NUMERIC  LINE  COUNT. 
A  LABEL  STARTING  WITH  AN  ALPHABETIC  CHARACTER  MUST  BE 
SUPPLIED. 

ELSE/ENDIF 

LABELS  MUST  BE  SUPPLIED.  NOTE  THAT  AN  UNLABELLED 
STATEMENT  MAY  NEED  TO  BE  REPLACED  BY  SEVERAL  LABELLED 
STATEMENTS. 

IF (MON...  IFITUE...  ETC. 

THESE  STATEMENTS  ARE  NOT  PROVIDED.  HOWEVER,  THE  EFFECT 
MAY  BE  ACCOMPLISHED,  ALBEIT  CLUMSILY,  USING  CASE ( *DAY ) 
FOLLOWED  BY  A  SERIES  OF  SET  STATEMENTS.  A  FOLLOWING  IFE 
STATEMENT  MAY  THEN  TEST  THAT  A  PARTICULAR  VALUE  HAD  BEEN 
SET . 

IF'EOR...  in  EOF...  IF  i  EDI... 

ONLY  A  SINGLE  TEST  FOR  EOF  IS  PROVIDED.  THUS, 

IF' EOR/EOF/ECI .LFN, LABEL )  BECOMES 
IFE;  FlLEilFN,  EOF  LABEL  ■  . 


IF (AM...  IF: PM... 

ONE  OF  THE  PREDEFINED  VARIABLES  KNOWN  TO  CCL  AND 
AVAILABLE  IN  AN  IFE  STATEMENT  IS  CALLED  TIME.  THUS, 

I F ( AM. LABEL)  BECOMES  I FE (( TIME . LT . 1200 i , LABEL t 
IF • PM. LABEL  >  BECOMES  I FE (( T IME . GE . 1200 ), LABEL ) 
THE  LABEL  MAY  NOT  BE  OMITTED  OR  CONTAIN  A  NUMERIC  LINE 

MUST T BE  SUPP5IEDSTARTING  WITH  AN  ^LPHABETIC  CHARACTER 


I  F  (  BATCH  .  .  .  I F  i  INTERCOM  ...  I F  {  I  NT .  .  . 

ONE  OF  THE  PREDEFINED  VARIABLES  KNOWN  TO  CCL  AND 
AVAILABLE  IN  AN  IFE  STATEMENT  IS  CALLED  OT .  THUS, 

I F ! BATCH . . .  BECOMES  IFE (OT .NE . TXO _ ) 

IF  ■:  INTERCOM.  .  .  BECOMES  I  FE  S  OT  .  EQ  .  TXO _ ) 

IF i INT . . .  BECOMES  I FE ( OT . EQ . TXO _ ) 

IF! 6400...  IF (6600...  IF (6700... 

ONE  OF  THE  DTNSRDC* ADDED  PREDEFINED  VARIABLES  KNOWN  TO 
CCL  AND  AVAILABLE  IN  AN  IFE  STATEMENT  IS  CALLED  MF . 
THUS, 

IF ( 6400 . . .  BECOMES  I FE ( MF . EQ . $MFC$ _ ) 

IF  16600. . .  BECOMES  I FE ( MF . EQ. $MFB$ _ 1 

IF ! 6700 . . .  BECOMES  IFE (MF . EG. $MFA$ _ ) 
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OF 


f  11 


CORRECTIONS  THE  USER  MUST  MAKE  AFTER  USING  THE  CONVERSION 
PROGRAM: 


B/R 


HEADER  PARAMETER  OF 
THE  FORM  *PARAM= 

ELSE ( N )  NsNUMBER 


DUP/ENDUP 


*  FOR  LABEL  IN  IF, 
IFC.  ELSE,  SKIP 

ONE  OR  MORE 
PROCEDURES  FOLLOW 
■'DATA  CARD  (  S  * 

SENSE  SWITCH  TEST  OF 
THE  FORM: 

IF iSSW.-N, LABEL) 
WHERE  N=  1.2, 3, 4, 5, 6 

UNNAMED  PROCEDURE 


DATA  RECORD 


CONVERTS  TO 
PARAM=$*PARAM$ 

NO  CHANGE 

NOT  CHANGED 


STATEMENT  NOT 
CONVERTED 

HEADERS  NOT 
CHANGED 


1FEISW-N. LABEL 


FIRST  CARD  IS 
CONVERTED  TO 
A  HEADER 

FIRST  CARD  IS 
CONVERTED  TO 
A  HEADER 


CORRECTION 

PARAM= 


ELSE ( LABEL ) 

IF  NEEDED,  SUPPLY 
ENDI F ( LABEL ) 

REPLACE  WITH  WHILE/ 
ENDW  (SEE  PAGE  2). 
REMOVE  $  IN  LOOP 

CONVERT  STATEMENT 
MANUALLY 

MAKE  NEW  HEADERS 


1FE( . NOT. SWN, LABEL 


RESTORE  TO  ORIGINAL 
AND  ADD  AN 
APPROPRIATE  HEADER 

RESTORE  TO  ORIGINAL 


CORRECTION  THE  USER  MAY  MAKE  AFTER  USING  THE  CONVERSION 
PROGRAM  'THESE  ARE  NOT  MANDATORY,  BUT  WILL  IMPROVE  THE 
RUNNING  OF  THE  PROCEDURE): 


B/R 

CONVERTS  TO 

CORRECTION 

NO  REFERENCE  TO  *DATA 
IN  PROCEDURE 

CCLDATA=0DATA 

IN  HEADER 

REMOVE 

NO  REFERENCE  TO  *F I LE 
IN  PROCEDURE 

CCLF I LE=#F I LE 

IN  HEADER 

REMOVE 

HEADER  PARAMETER  OF 

THE  FORM  *PARAMsPARAM 

PARAM=PARAM 

PARAM 

2-  iS 
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PROCEDURE  ' B7700S' 


PURPOSE 

PREPARE  9-TRACK  EBCDIC  TAPE  TO  MOVE  A  SINGLE  CARD-IMAGE 
PERMANENT  FILE  FROM  THE  CDC  6000  TO  THE  BURROUGHS  B7700 

FUNCTIONAL  CATEGORIES:  K4 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, B7700S, , PFN , ID , VSN , SLOT , L . PWl , PW2 . 

DESCRIPTION  OF  PARAMETERS 

PFN  -  PERMANENT  FILE  NAME  (UP  TO  40  CHARACTERS) 

ID  -  ID  UNDER  WHICH  PFN  IS  CATALOGED 

VSN  -  DIEBOLD  TAPE  NUMBER 

SLOT  -  OPTIONAL  SLOT  NUMBER  (IF  VSN  IS  A  BAOOOO  TAPE) 

L  *  OPTIONAL  TAPE  LABEL  • IF  OMITTED,  L= ID ) 

PW1.PW2  -  OPTIONAL  PASSWORDS  \ RD  AND  TK  ONLY) 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL :  20000B 

REMARKS 

THE  TAPE  HAS  MAXRECS1 ZE=80 .  BLOCKSIZE  =  3640.  BLOCKING=46. 
ERROR  MESSAGES 

B7700S  REQUIRES  MAG  TAPE  AND 
MUST  BE  RUN  FROM  BATCH 

FATAL.  USER  TRIED  TO  EXECUTE  PROCEDURE  VIA  INTERCOM. 

ID  MUST  BE  SPECIFIED 

FATAL.  SELF-EXPLANATORY. 

VSN  MUST  BE  SPECIFIED 

FATAL.  SELF-EXPLANATORY. 

EXAMPLES 

1.  TAPE  IS  NORMALLY  KEPT  IN  THE  6700/6600  ROOM  (CA.  CB 
SERIES)  OR  THE  CYBER  74  ROOM  iCJ,  CR  SERIES): 

BEGIN. B7700S, .MYFI LE , XXXX .CA9999 . 

2.  TAPE  IS  NORMALLY  KEPT  IN  THE  B7700  ROOM  (BA  SERIES)  AND 
IS  IN  SLOT  03  IN  THE  CDC  6700  ROOM: 

BEGIN, B7700S, ,MYF I LE . XXXX , BA9999 , 03 . 


B7700S 


AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 
DATE  WRITTEN:  04/09/79 
DATE ( S )  REVISED 

05/17/79  -  ADD  LABEL  t-ARAMETER  (L) 
lO/TB/?9  -  ADD  PASSWORD  PARAMETERS  (PW1.PW2J 
10/17/79  -  FIX  VSN  CARD 


PROCEDURE  'B7700U' 


PURPOSE 

PREPARE  9-TRACK  EBCDIC  TAPE  TO  MOVE  A  SINGLE  DECK  OR  AlL 
DECKS  IN  AN  UPDATE  LIBRARY  FROM  THE  CDC  6000  TO  THE 
BURROUGHS  B7700 

FUNCTIONAL  CATEGORIES:  K4 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN . B7700U . , L IB . ID , DECK , VSN , SLOT . L .NOPL . PW1 , PW2 . 

DESCRIPTION  OF  PARAMETERS 

LIB  -  FIRST  PART  OF  PFN 

(FULL  PFN  IS  LIB  PL) 

(SEE  PARAMETER  'NOPL'  BELOW) 

ID  -  ID  UNDER  WHICH  LIB  PL  OR  LIB  IS  CATALOGED 

DECK  -  SINGLE  DECK  TO  BE  TRANSFERRED 

(IF  OMITTED.  ENTIRE  LIBRARY  IS  TRANSFERRED) 

VSN  -  DIEBOLD  TAPE  NUMBER 

SLOT  -  OPTIONAL  SLOT  NUMBER  (IF  VSN  IS  A  BA0000  TAP 
L  -  OPTIONAL  TAPE  LABEL  (IF  OMITTED.  L=1D ( 

NOPL  -  IF  OMITTED  -  LIBRARY  PFN  IS  LIB_PL 

IF  NON-BlANK  -  LIBRARY  PFN  IS  LIB 

PW1.PW2  -  OPTIONAL  PASSWORDS  ( RD  AND  TK  ONLY) 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL:  43000B 

REMARKS 

AN  80-CHARACTER  COMPILE  FILE  IS  CREATED  ( SEQUENCING  IN 
73-80!  AND  WRITTEN  TO  TAPE. 

THE  TAPE  HAS  MAXRECSIZE  =  80 ,  BLOCKSiZE  =  3S40.  BLOCKINGS. 

ERROR  MESSAGES 

B7700U  REQUIRES  MAG  TAPE  AND 
MUST  BE  RUN  FROM  BATCH 

FATAL.  USER  TRIED  TO  EXECUTE  PROCEDURE  VIA  INTERCOM. 

ID  MUST  BE  SPECIFIED 

FATAL.  SELF-EXPLANATORY. 

VSN  MUST  BE  SPECIFIED 

FATAL.  SELF-EXPLANATORY. 
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EXAMPLES 

1.  TRANSFER  DECK  ' MYDECK'  FROM  LIBRARY  ' MYLIBPL' .  TAPE  IS 
NORMALLY  KEPT  IN  THE  6700/6600  ROOM  (CA,  CB  SERIES)  OR 
THE  CYBER  74  ROOM  (CJ,  CR  SERIES): 

BEGIN. B7700U, , MYLIB.XXXX. MYDECK, CA9999. 

2.  TRANSFER  ENTIRE  LIBRARY  (LIBRARY  PFN  IS  ' MYLIB'  )  .  TAPE 
IS  NORMALLY  KEPT  IN  THE  B7700  ROOM  (BA  SERIES)  AND  IS  IN 
SLOT  03  IN  THE  CDC  6700  ROOM: 

BEGIN, B7700U. .MYLIB.XXXX, .BA9999.03, ,X. 


AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 
DATE  WRITTEN:  04/09/79 


D 


TE  t  S )  REVISED 
05/17/79  -  ADD 
07/03/79  -  ADD 
10/16/79  -  ADD 
10/17/79  -  FIX 


LA3EL  PARAMETER  (L) 
NOPL  PARAMETER 
PASSWORD  PARAMETERS 
VSN  CARD 


(  PW1 , PW2 ! 
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PROCEDURE  ' CALC3D' 

PURPOSE 

THREE-D  PROCEDURE  FOR  CALCOMP  PLOTTERS 

FUNCTIONAL  CATEGORIES:  J5 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, CALC3D , , MAC , VSN 1 . VSN2 . TID , INPUT , RERUN . 

DESCRIPTION  OF  PARAMETERS 
MAC  -  ONE  OF  -- 

763  *  CALCOMP  763  PLOTTER 

936  -  CALCOMP  936  PLOTTER  (DEFAULT) 

170  -  CALCOMP  PLOTTER  ON  HIGH  SPEED  REMOTE 
TERMINAL 

VSN1  -  TAPE  DIEBOLD  OR  SLOT  NUMBER 
(6  CHARACTERS  OR  LESS) 

(UNLABELLED  TAPE  FOR  MAC=763; 

LABELLED  TAPE  FOR  MAC=S36 » 

VSN2  -  EXTERNAL  STICKER  LABEL 

(SLOT  TAPES  ONLY) 

TID  -  TERMINAL  ID  FOR  ROUTING  PLOTTER  OUTPUT 
(USED  ONLY  WHEN  MAC* 1 70* 

(DEFAULT:  012  * 

INPUT  -  FILE  CONTAINING  CONTROL  CARDS 
RERUN  -  THIS  PARAMETER  FACILITATES  SAME  DAY  RERUN  USING 
THE  SAME  TAPE. 

OMITTED  OR  '  W'  -  FIRST/ONLY  TIME  THIS  TAPE  IS  USED 

TODAY 

' R'  -  RERUN  ON  SAME  DAY 

THIS  PARAMETER  HAS  MEANING  ONLY  FOR  MAC=936. 

HOWEVER,  IF  SPECIFIED,  IT  MUST  BE  A  VALID  ENTRY. 

DEFAULT  BEGIN  STATEMENT 

BEGIN, CALC3D, ,936, *.*.012, INPUT. W. 

*  -  NO  DEFAULTS  FOR  THESE  PARAMETERS 


MAX  FL: 


REMARKS 

A  936  JOB  WILL  CREATE  A  LABELLED  TAPE  WITH  A  RETENTION 
PERIOD  OF  ONE  DAY.  SUBSEQUENT  RERUN. S«  ON  THE  SAME  DAY 
WILL  CAUSE  THE  JOB  TO  TERMINATE  BECAUSE  OF  UNEXPIRED  LABEL. 
SPECIFYING  RERUNsR  WILL  CAUSE  THE  CURRENT  LABEL  TO  BE 
CHECKED  RATHER  THAN  BE  RE-WRITTEN.  THE  FIRST  OR  ONLY 
RUN  SHOULD  OMIT  THE  RERUN  PARAMETER  SO  THAT  THE  CURRENT  DATE 
WILL  BE  WRITTEN  ON  THE  LABEL. 


r  A  i 


C3D 
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EXAMPLES 

BEGIN, CALC3D, ,936. CA9999. 

(USE  LABELLED  TAPE  CA9999  FOR  CALCOMP  936  PLOTTER 

BEGIN, CALC3D, ,763. SLOTOI .MYTAPE. 

(USE  UNLABELLED  TAPE  IN  SLOT  01  HAVING  EXTERNAL 
LABEL  ■MYTAPE'  FDR  CALCOMP  763  PLOTTER) 

AUTHOR 

SHARON  E  GOOD  -  DTNSRDC  CODE  1892.1 

DATE  WRITTEN:  EARLY  1975 

DATE  I S i  REVISED 
07/23/76 

10/07/76  -  MAKE  TRANSPARENT  TO  USER 
03/01/78  -  CONVERT  TO  CCl 


PROCEDURE  ' CCNOTE' 


PURPOSE 

PRINT  A  COMPUTER  CENTER  NOTE  OR  THE  CCN  INDEX 

FUNCTIONAL  CATEGORIES:  SO 

COMPUTER 
CDC  6000 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGI N . CCNOTE . . OPT . OUTPUT . LEFT . PD . 

DESCRIPTION  OF  PARAMETERS 


OUTPU1 

LEFT 


-  OPTION.  ONE  OF: 

INDEX  -  BOTH  TOPIC  AND  NUMBER  INDICES 
NUMBER  -  INDEX  ORDERED  BY  CCN  NUMBER 
TOPIC  -  INDEX  ORDERED  6*  TOPIC 

VVNN  *  L  SPECIFIC  CCN.  WHERE 

VV  IS  THE  VOLUME  12  DIGITS* 

NW  IS  THE  NUMBER  (2  DIGITS i 
OTHER  -  ASSUMED  TO  BE  <VVNN>  AND  WILL  HAVE 
UNPREDICTABLE  RESULTS  IF  IT  IS  NOT 

-  LI  STABLE  OUTPUT 

-  CENTERING 

LEFT  OR  OMITTED  -  LEFT  JUSTIFIED  ON  PAGE 

I  WILL  FIT  ON  NARROW  PAPER i 
ANYTHING  ELSE  -  CENTERED  ON  WIDE  PAPER 

-  PRINT  DENSITY  (FOR  OPT  =  INDEX/NUMBER/TOPIC  ONLY  * 

8  -  8  LINES  PER  INCH 

6  -  6  LINES  PER  INCH  (REQUIRED  FOR  FICHE  OR  XEROX  I 


DEFAULT  BEGIN  STATEMENT 

BEGIN. CCNOTE. .INDEX. OUTPUT. LEFT, 8. 

MAX  FL:  33Q00B 


REMARKS 


AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 
DATE  WRITTEN:  07/10/80 


i 


PROCEDURE  '  COMQ' 

PURPOSE 

PREPARE  AND  ROUTE  A  FILE  TO  THE  MICROFICHE  QUEUE 


FUNCTIONAL  CATEGORIES:  QO 

COMPUTER 
CDC  6000 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN. COMQ , . LFNPFN . ID . HEADER . F ID. PROG. SHIFT . 

DESCRIPTION  OF  PARAMETERS 

LFNPFN  -  LFN  OR  PFN  OF  FI-lE  TO  3E  LISTED 
•DEPENDS  ON  PARAMETER  ID) 

ID  -  IF  OMITTED.  LFNPFN  IS  AN  LFN 

IF  SPECIFIED.  LFNPFN  IS  A  PFN  CATALOGED 
UNDER  THIS  ID 


THE  FICHE  -IF  ANY  NON -ALPHAMERIC  CHARACTERS. 
HEADER  MUST  BE  DOLLAR-DELIMITED: 

STHIS  HEADER  IS  DOLLAR -DEL I MI  TEDS  > 

FID  FOR  ROUTING  THE  FILE 

COM  PROGRAM  TO  use.  MUST  BE  ONE  WHICH  SUPPORTS 
A  32-CHARACTER  EYE-READABLE  TITLE  IN  THE  SECOND 
LINE  OF  THE  FILE.  SUCH  AS: 

COMP  -  FOR  COMPILATION  AND  LOAD  MAP  LISTINGS 
U’LL  CREATE  AN  INDEX) 

(132  CHARACTERS  PER  LINE. 

268  PAGES  PER  FICHE. 

PLUS  2  INDEX  FRAMES) 

COMPF  -  SAME  AS  COMP,  WITH  A  BOX  AROUND  EACH 

COMQ  -  FOR  REGULAR  OUTPUT 

(122  CHARACTERS  PER  LINE, 

270  PAGES  PER  FICHE) 

COMQF  -  SAME  AS  COMQ,  WITH  A  BOX  AROUND  EACH 


•FILE  HAS  CARRIAGE  CONTROL  IN  COLUMN  1  C 
EACH  RECORD.  SUCH  AS  A  COMPILATION  LISTI 
PROGRAM  OUTPUT! 

1  -  SHIFT  1  POSITION  TO  THE  RIGHT 

(STANDARD  COPYSF:  USE  FOR  SOURCE  OR  DATA 
FILES 

-  SHIFT  SPECIFIED  NUMBER  OF  COLUMNS 
•DEFAULT;  0» 

EGIN  STATEMENT 

m**r.  rrwA  n 


REMARKS 

THIS  PROCEDURE  CREATES  A  FILE  WHICH  CONTAINS: 

.  A  CARD- IMAGE  WITH  <PROG>  IN  COLUMNS  2-6 
.  A  CARD-IMAGE  WITH  <HEADER>  IN  COLUMNS  2-33 
.  THE  FIRST  OR  ONLY  FILE  IN  <LFNPFN> ,  SHIFTED,  IF  SO 
REQUESTED 

THIS  FILE  IS  ROUTED  TO  THE  MICROFICHE  QUEUE  USING: 

.  ROUTE  ,<FILE>,DC=PR,TID=C,FID=<FID>, FC=WW. 

EXAMPLES 

1)  FILE  ABCD , ID=ZYXW  IS  A  SOURCE  FILE  TO  BE  PUT  ONTO 
FICHE  WITH  AN  EYE-READABLE  TITLE  OF 

' PROGRAM  ABCD, ID=ZYXW  05/07/80' 

OUTPUT,  WHICH  IS  TO  BE  CENTERED,  IS  TO  GO  TO  ZYXW: 

BEGIN, COMQ, , ABCD, ZYXW, 

SPROGRAM  ABCD , ID=ZYXW  05/07/80S , ZYXW , , 26 . 

2)  THE  DATA  IN  LOCAL  FILE  'INDATA'  IS  TO  BE  PUT  ONTO  FICHE 
WITH  AN  EYE-READABLE  TITLE  'DATA  A/001  05/07/80' 

OUTPUT  IS  TO  GO  TO  XXXX: 

BEGIN, COMQ, , INDATA, ,$DATA  A/001  05/07/805, XXXX, , 1 . 

3)  FILE  EFGH , ’ D  =  ZYXW  IS  A  L 1  STABLE  FILE  TO  BE  PUT  ONTO 
FICHE  WITH  AN  EYE-READABLE  TITLE  OF 

'FILE  EFGH , ID=ZYXW  05/07/80' 

OUTPUT  IS  TO  GO  TO  ZYXW: 

BEGIN, COMQ, , EFGH, ZYXW, 

SFILE  EFGH , ID=ZYXW  05/07/80$ , ZYXW . 

41  THE  COMPILATION  IN  LOCAL  FILE  'OUT'  IS  TO  BE  PUT  ONTO 
FICHE  WITH  THE  EYE-READABLE  TITLE 
' PROGRAM  QRST  -•  05/07/80' 

OUTPUT  IS  TO  GO  TO  XXXX,  FRAMES  ARE  TO  BE  OUTLINED  AND 
AN  INDEX  CREATED: 

BEGIN, COMQ, , OUT, .SPROGRAM  QRST  --  05/07/80$ , XXXX , 
COMPF . 

AUTHORS 

DAVIU  V  SOMMER  -  DTNSRDC  CODE  1892.2  (CDC  PROCEDURE  COMQ) 
BARBARA  DAVIS  -  DTNSRDC  CODE  1892,1  (COM  PROCEDURES) 


DATE  WRITTEN:  05/07/80 


PROCEDURE  ' COPYBLK' 

PURPOSE 

REBLOCK  STRANGER  TAPES  TO  SCOPE  STANDARD  FILES  (BOTH 
UNBLOCKED  CARD  AND  PRINT  LINE  IMAGE  TAPES  AND  BLOCKED 
STRANGER  TAPES) 

FUNCTIONAL  CATEGORIES:  K4 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN , COPYBLK , , RB ,MRL ,MBL , TAPE  1 , TAPE2 . REW1 , REW2 . 

DESCRIPTION  OF  PARAMETERS 

RB  -  NUMBER  OF  RECORDS  PER  BLOCK 

IF  OMITTED  OR  1  -  COPY  UNBLOCKED  STRANGER 
FILES  (CARD  AND  PRINT  LINE  IMAGES) 

OTHER  -  COPY  BLOCKED  STRANGER  FILES 
MRL  -  MAXIMUM  RECORD  LENGTH  (RB  NOT  EQ  1) 

(NUMBER  OF  6-BIT  CHARACTERS) 

MBL  -  MAXIMUM  BLOCK  LENGTH  (RB  NOT  EQ  1) 

(TOTAL  NUMBER  OF  CHARACTERS  PER  BLOCK  (MUST 
BE  RB  TIMES  MRL) ! 

TAPE!  -  INPUT  STRANGER  FILE  (SEE  REMARKS) 

TAPE2  -  OUTPUT  SCOPE  STANDARD  FILE 
REW1  -  OMITTED  -  REWIND  TAPE  1  AFTER  USE 

N  -  DO  NOT  REWIND  TAPE  1  AFTER  USE 

REW2  -  OMITTED  -  REWIND  TAPE2  AFTER  USE 

N  -  DO  NOT  REWIND  TAPE2  AFTER  USE 

DEFAULT  BEGIN  STATEMENT 
IF  RB  OMITTED  OR  1 : 

BEGIN, COPYBLK. .1,150, 1 50 , TAPE  1 , TAPE2 , 

IF  RB  NOT  EQ  1: 

BEGIN, COPYBLK, , RB , 80 . * , T APE  1 . T APE2 . 

!*  -  USER  MUST  SUPPLY ) 

MAX  FL:  70000B 

REMARKS 

A  9-TRACK  TAPE  MUST  BE  COPIED  TO  DISK  BEFORE  USING  COPYBLK 

EXAMPLES 

BEGIN, COPYBLK. 

(COPY  UNBLOCKED  FILES) 

BEGIN, COPYBLK, , 1 0 , MBL  =  800  . 

(COPY  BLOCKED  CARD-IMAGE  FILES,  10  RECORDS  PER 
BLOCK.  NOTE  THAT  USER  MUST  SUPPLY  MBL.) 


05/01  '78 
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AUTHOR 

SHARON  E  GOOD  -  DTNSRDC  CODE  1892.1 
DATE  WRITTEN:  EARLY  1975 


DATE ( S )  REVISED 

10/07/76  -  REVERT ( ABORT )  ADDED 
11/22/76  -  REW1.REW2  ADDED 
03/01/78  -  CONVERT  TO  CCL 


PROCEDURE  'COPYLIB' 


PURPOSE 

CONDENSE  (AND  SORT)  AN  EDITLIB  USER  LIBRARY  PRESERVING  AL, 

FL,  FLO  VALUES.  BINDEX  AND  LI  STB  IN  LISTS  ARE  PROVIDED. 

FUNCTIONAL  CATEGORIES:  K3  Q7 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN .COPYLIB, . LIB, ID. OUTPUT , SORT. NOEDLST .AC. PW1 , PW2 . 

DESCRIPTION  OF  PARAMETERS 

LIB  -  PFN  OF  LIBRARY  (1-7  CHARACTERS) 

ID  -  ID  UNDER  WHICH  LIBRARY  IS  CATALOGED 

(DEFAULT:  SYSTEM  PUBLIC  ACCESS  IDS 
OUTPUT  -  L 1  ST  ABLE  OUTPUT 

SORT  -  OMITTED  OR  'SORT'  -  SORT  ROUTINE  NAMES 

(NEW  LIBRARY  MAY  BE  REORDERED  * 
ANYTHING  ELSE  -  DO  NOT  SORT 
NOEDLST  -  OMITTED  -  DO  NOT  PRINT  A  COPY  OF  EDITLIB 

OUTPUT 

ANYTHING  ELSE  -  PRINT  EDITLIB  OUTPUT 
AC  -  JOB  ORDER  NUMBER  FOR  CATALOG  OF  NEW  LIBRARY 

(MAY  BE  OMITTED) 

PW1.PW2  -  PASSWORDS  FOR  CATALOG  OF  NEW  LIBRARY 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL:  A6000B+ 

REMARKS 

THE  LOWEST  CYCLE  OF  LIB  IS  PURGED,  ;F  POSSIBLE.  AT  LEAST  2 
CYCLES  ARE  ALi;A1S  RETAINED. 

OCCASIONALLY.  EDITLIB  WILL  LOSE  m  PORTION  OF  A  DECK  DURING 
THE  COPY  PROCESS.  ?WE  DIRECTORY  WILL  SHOW  THAT  THE  DECK  IS 
THERE,  BUT  EXECUTING  IT  WILL  CAUSE  A  LOADER  ERROR.  FOR  THIS 
REASON,  THE  ' LISTBIN'  LIST  IS  PROVIDED.  A  QUICK  EXAMINATION 
OF  THIS  LIST  WILL  SHOW  ANY  TROUBLE  SPOTS.  IN  ADDITION  TO 
THE  LINES  FOR  EACH  DECK  IN  THE  LIBRARY.  THERE  SHOULD  BE  SIX 
(6)  OTHER  LINES  (PRECEDED  BY  RIGHT  BRACKET  (!<).  NORMALLY, 
THEY  ARE  AT  THE  END  OF  THE  LIBRARY,  BUT  MAY  BE  SPLIT  FOUR 
(4)  AT  THE  START  AND  TWO  (2)  AT  THE  END  OF  THE  LIBRARY. 

ONE  OR  MORE  '!'  LINES  ANYWHERE  ELSE  IN  THE  LISTBIN  LISTING 
INDICATES  WHERE  THE  BAD  DECK  IS.  THE  QUICKEST  WAY  TO 
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RESTORE  THE  'MISSING'  DECK  IS  AS  FOLLOWS: 

ATTACH, MYLIB, ID=XXXX,PW- _  (GET  CURRENT  CYCLE 

Wr.ri  EXTEND  PERMISSION) 

ATTACH, LC.MYLIB, ID=XXXX,LC=1 .  (GET  LOWEST  CYCLE) 
BEGIN, UTILITY, .GETOBd.LC, ROUTINE. FILE, LIB.  (EXTRACT 

ROUTINE) 

EDITLIB. 

EXTEND, MYLIB. 

'  7/8/9  EOR 

LIBRARY (MYLIB, OLD) 

REPLACE ( * , FILE  ) 

FINISH. 

ENDRUN. 

6/7/S/9  EOF 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 

DATE  WRITTEN:  11/18/76 

DATE  I S  >  REVISED 

03/01/78  -  CONVERT  TO  CCl 


PROCEDURE  'COPYS' 


PURPOSE 

ATTACH,  EXECUTE  AND  RETURN  THE  RIQSCOPYS  PROGRAM 

FUNCTIONAL  CATEGORIES:  K1 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, COPYS, , COPY, INPUT, OUTPUT, N. 

DESCRIPTION  OF  PARAMETERS 

COPY  -  ONE  OF  1  ,E  'COPYSiCQPY'  OPTIONS 
(SEE  REMARKS) 

INPUT  -  INPUT  FILE 

OUTPUT  -  OUTPUT  FILE 

N  -  NUMBER  OF  TIMES  OR  FILES 

DEFAULT  BEGIN  STATEMENT 

BEGIN, COPYS. .COPY, INPUT, OUTPUT . 1 . 

MAX  FL:  15000B 


REMARKS 

IF  RIOSCOPYS  IS  ALREADY  ATTACHED  ( WITH  LFN  'COPYS'), 
STILL  BE  ATTACHED  AFTER  THIS  PROCEDURE. 

A  DOCUMENT  DESCRIBING  COPYS  MAY  BE  PRINTED  BY: 

BEGIN. DOCGET, .OTHER . .COPYS. OUTPUT . 

EXAMPLE 

REWIND  AND  COPY  A  RANDOM  FILE: 

ATTACH. RANIN .  INPUT  RANDOM  FILE 

REQUEST . RANOUT , *PF .  OUTPUT  RANDOM  FILE 
BEGIN. COPYS, .COPY  IX, RANIN, RANOUT. 

CATALOG. RANOUT . 


AUTHOR 

NORTHWESTERN  UNIVERSITY 


DATE  WRITTEN: 

DATE ( S )  REVISED 

03/01/78  -  CONVERT  TO  CCL 
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PROCEDURE  ' CV029' 


PURPOSE 

CONVERT  TO  029  PUNCH  CODE 

FUNCTIONAL  CATEGORIES:  dl  M2  01 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN. CV029. .LFN.TID.FID. 

DESCRIPTION  OF  PARAMETERS 

LFN  -  FILE  TO  BE  CONVERTED 

TID  -  ID  OF  TERMINAL  AT  WHICH  THE  029  DECK  IS  TO  BE 
PUNCHED.  USE  '  C'  FOR  CENTRAL  SITE  OR  USE  THE 
3-CHARACTER  1700  TERMINAL  ID.  IF  OMITTED,  FILE 
' ZZZC29'  WILL  CONTAIN  THE  CONVERTED  DECK.  TO 
PUNCH.  USE 

ROUTE . ZZZ029. DC  =  PU, EC  =  30COL , T ID=  <T ID> , FID=* <F 
FID  *  IF  TID  IS  SUPPLIED.  FID  IS  THE  1-  TO  5-CHARACT 
FILE-ID  TO  3E  USED.  IF  OMITTED.  THE  JOB/INTER 
SESSION  NAME  IS  USED. 

DEFAULT  BEGIN  STATEMENT 
BEGIN. CV029.. INPUT. 

REMARKS 

NONE 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 

DATE  WRITTEN:  10/17/78 

DATEiSi  REVISED 

07/25/79  -  ADD  FID  PARAMETER 
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PROCEDURE  'DISPOST'  | 

PURPOSE 

INVOKE  D1SSPLA  POSTPROCESSORS  (TEK300  OR  TEK480)  ^  | 

FUNCTIONAL  CATEGORIES:  Q3  1 

COMPUTER  -1 

CDC  6000  j 

LOCATION  OF  PROCEDURE  \ 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE  | 

USAGE  | 

BEGIN. DISPOST. .WHICH. PFN. ID, PW1 . PW2 .  1 


PROCEDURE  'DOCADD' 


PURPOSE 

ADD  ONE  DOCUMENT  TO  A  DOCUMENTATION  FILE 

FUNCTIONAL  CATEGORIES:  Q6 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 


USAGE  „  n 

BEGIN, DOCADD, , LIB, ID. PROG. AFTER, LFN, AC, PW1 .Ptf2.PW3.PW4.Ptf5. 

DESCRIPTION  OF  PARAMETERS 

LIB  -  FIRST  PART  OF  DOCUMENTATION  FILE  PFN 
{ FULL  PFN  IS  LIB  DOCUMENTATION) 

ID  -  ID  UNDER  WHICH  IT  IS  CATALOGED 

(DEFAULT:  SYSTEM  PUBLIC  ACCESS  ID « 

-  NAME  OF  DOCUMENT  TO  BE  ADDED 

-  NAME  OF  DOCUMENT  AFTER  WHICH  THIS  DOCUMENT  IS  TO 


PROG 

AFTER 


LFN 

AC 

PW1-PW5 


BE  PLACED 

(IF  BLANK,  WILL  GO  IN  ALPHABETICAL  ORDER. 

IF  O'.  WILL  GO  AT  START  OF  FILE. 

IF  'END'.  WILL  GO  AT  END  OF  FILE.  » 

-  LFN  OF  FILE  CONTAINING  NEW  DOCUMENT. 

IT  IS  REWOUND  BEFORE  BEING  READ.  IT  MUST  NOT 
CONTAIN  A  *DECK  CARD. 

-  JOB  ORDER  NUMBER  FDR  CATALOG 
(MAY  BE  OMITTED) 

-  PASSWORDS 


DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL:  310005 


remarks 

"the  LOWEST  CYCLE  OF  L 1 E_DQCUKEN! AT  I ON  IS  PURGED,  IF 
POSSIBLE.  AT  LEAST  2  CYCLES  ARE  ALWAYS  RETAINED. 

EXAMPLES 

ASSUME  THE  OLD  DOCUMENT  FILE  WAS  CATALOGED  WITH: 

CATALOG .FILE. MYDOCUMENTAT I  ON . ID*XXXX . XR=RONLY . 

AND  HAS  DOCUMENTS:  A.  B.  D.  F.  G.  H. 

TO  ADD  DOCUMENT  C  'ON  LFN  CC )  IN  ALPi:  ,8£T  1CAL  ORDER: 

BEGIN, DOCADD. .MY.XXXX.C. .CC. .RONLY, 

THE  NEW  DOCUMENT  FILE  WILL  HAVE:  A,  B,  C.  D.  F,  G,  H. 

TO  ADD  DOCUMENT  C  (ON  LFN  CO  AT  START  OF  THE  FILE: 


THE  NEW  DOCUMENT  WILL  HAVE: 


n  rr 

v  «  WV  *  * 

RONLY. 

HAVE : 

C .  A ,  B .  D .  F  ,  6 ,  H . 

t  w  rr  i 

AT  THE  END  OF  THE  PILE 

END.CC 

.RONLY  . 

A.  B 

.  D.  F.  G.  H.  C. 

TO  ADD  THE  DOCUMENT  C  (ON  LFN  CC)  AFTER  DOCUMENT  F: 

BEGIN, DOCADD , , MY , XXXX , C , F , CC , , RONL Y . 

THE  NEW  DOCUMENT  FILE  WILL  HAVE:  A,  B,  D,  F,  C,  G,  H. 

SUGGESTED  COMPLETE  SEQUENCE  OF  OPERATIONS  FOR  CREATING  A 
DOCUMENT  (USING  DOC  AND  EDITOR)  AND  ADDING  IT  TO  AN  EXISTING 
DOCUMENT  FILE: 

CONNECT, OUTPUT 

ATTACH, UTILITY. 

LIBRARY. UTILITY. 

DOC.  (OR  MTDOC.  OR  PFDOC. ) 

(CREATE  DOCUMENT  IN  FILE  ' DOCMNT' ) 

EDITOR 

EDIT .DOCMNT ,SEQ 

(MODIFY.  IF  NECESSARY.  INDICATE  START  OF  EACH  PAGE 
BY  PUTTING  A  '  1*  IN  COLUMN  1  OF  EACH  LINE  WHICH  IS  TO 
BE  THE  FIRST  LINE  OF  A  PAGE.) 

SAVE , NEWDOC , NOSEQ 

LINER  NEWDOC 

< W i L L  COUNT  PAGES  AND  LINES  PER  PAGE.  IF  ANY  PAGE  HAS 
MORE  THAN  53  LINES,  GO  BACK  AND  RESTRUCTURE  THE 
DOCUMENT . i 

BYE 

DOCiT, NEWDOC, FILE. 

(WILL  LENGTHEN  EACH  PAGE  TO  60  LINES  ADDING  THE  DATE, 
DOCUMENT  NAME  AND  PAGE  COUNTS. I 

BEGIN. DOCADD. .MYLIB, XXXX, DOCNAME. .FILE. ,RONLY. 

(WILL  ADD  THE  DOCUMENT  JUST  CREATED  (ON  LFN  'FILE'  I  TO 
THE  DOCUMENT  FILE  WITH  PFN=MYL 1BD0CUMENTAT ION . 
ID-XXXX,  IN  ALPHABETICAL  ORDER  ACCORDING  TO  THE 
SPECIFIED  DOCUMENT  NAME  'DOCNAME' .  ALPHABETICAL 
ORDER  IS  RECOMMENDED  SC  THAT  LISTS  OF  THE  CONTENTS 
WILL  BE  MORE  READABLE.) 

BEG I N . DOC L I  ST . . M Y  L 1 5 . X XX X . OUT . 

(GET  A  LIST  OF  DOCUMENT  NAMES  WITH  NUMBER  OF  CARDS. 
LINES  AND  PAGES  FOR  EACH. ) 

PR06D0C . MYL I B . XXXX , DOCNAME . OUT . 

(LIST  THE  DOCUMENT  FROM  THE  DOCUMENT  FILE  TO  VERIFY  IT 
WAS  ADDED  PROPERLY.) 

BANNER. END. OUT. 

(TO  KEEP  THE  SYSTEM  FROM  PRINTING  "END  OF  LIST- 
MESSAGES  ON  LAST  PAGE  OF  DOCUMENT.) 

ROUTE  OUT  OC=PR 

(PRINT’THE  l] STS* ON  ANY  AVAILABLE  PRINTER.) 


author 
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PROCEDURE  '  DOCDATE 


PURPOSE 

LIST  DOCUMENT  NAMES  (ON  'DECK  CARDS  1  TOGETHER  WITH  THE 
DOCUMENT  DATE  AND  PAGE  NUMBERS  (FROM  BOTTOM  LINE  OF  EACH 
PAGE  I 

FUNCTIONAL  CATEGORIES:  01 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 


USAGE 

BEGIN , DOCDA" 


. . L I B , I D , OUTPUT . PW 1 . PW2 . PW3 , PW4 , P W5 . 


DESCRIPTION  Of  PARAMETERS 

LIB  -  FIRST  PART  OF  PFN 

i FULL  PFN  IS  PFN  DOCUMENTATION) 

ID  -  ID  UNDER  WHICH  IT  IS  CATALOGED 

» DEFAULT :  SYSTEM  PUBLIC  ACCESS  ID) 

OUTPUT  -  Li  STABLE  OUTPUT 

PW1-PW5  -  PASSWORDS  FOR  ATTACHING  THE  DOCUMENTATION  FILE 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 


MAX  FL:  32000B 


REMARKS 

NONE 

author 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1692.2 
DATE  WRITTEN:  02/05/80 
DATE’S*  REVISED 


PROCEDURE  ' DOCDELE' 

PURPOSE 

DELETE  ONE  DOCUMENT  FROM  A  DOCUMENTATION  FILE 
FUNCTIONAL  CATEGORIES:  Q6 


LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 


USAGE 

BEGIN . DOCDELE . , L I E ,  ID ,  PROG .  AC . PW 1 ,  PW2 .  PW3 ,  PW4 ,  PW5 . 

DESCRIPTION  OF  PARAMETERS 

LIB  -  FIRS':  PART  OF  DOCUMENTATION  FILE  PEN 
(FULL  PFN  IS  L ^DOCUMENTATION! 

ID  -  ID  UNDER  WHICH  IT  IS  CATALOGED 

•DEFAULT:  SYSTEM  PUBLIC  ACCESS  ID ) 

PROG  -  NAME  OF  DOCUMENT  TO  BE  DELETED 

AC  -  JOB  ORDER  NUMBER  FOR  CATALOG 

C MAY  BF.  OMITTED! 

PW1-PW5  *  PASSWORDS 


AULT  BEGIN  STATEMENT 


NO  MEANINGFUL  DEFAULT  VALUES 
MAX  FL:  31000B 


REMARKS 

THE  LOWEST  CYCLE  OF  L  ^DOCUMENTATION  IS  PURGED.  IF 
POSSIBLE.  AT  LEAST  2  CYCLES  ARF.  ALWAYS  RETAINED. 


EXAMPLES 

ASSUME  THE  OLD  DOCUMENT  FILE  WAS  CATALOGED  WITH: 

CATALOG . F I LE .MYDOCUMENTAT 3  ON , ID=XXXX . XR= 

AND  HAS  DOCUMENTS:  A,  6.  D.  F,  G,  H. 


:R0NL 


iu 


TM? 


DELETE  DOCUi.._NT  G: 

BEGIN. DOCDELE, .MY.XXXX.G. .RONLY. 

NEW  DOCUMENT  FILE  WILL  HAVE:  A,  B, 


D.  F 


.  H 


AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 
DATE  WRITTEN:  02/01/76 
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03/01/78  -  CONVERT  TO  CCL; 
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PROCEDURE  ' DOCDOC' 

PURPOSE 

LIST  DOCUMENTATION  FOR  PROCEDURES  DOCADD.  DOCDATE ,  DOCDELE, 
DOCDOC,  DOCFILE,  DOCGET ,  DOCLIST,  DOCREPL 

FUNCTIONAL  CATEGORIES:  01 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 


BEGIN, DOCDOC, .OUTPUT .LEFT . 

:script«on  OF  parameters 

OUTPUT  -  LI  STABLE  OUTPUT 

LEFT  -  OMITTED  -  PRINT  LEFT- JUSTIFIED  ON  PAGE 
NON-BLANK  -  PRINT  CENTERED  ON  WIDE  PAGE 

[FAULT  BEGIN  STATEMENT 


if,)  C  !  *  "  m  ^  '  p 


L  BANNER  PAGE  PRECEDES  “HE  LIST  AND  CONTAINS  THE  WORD 
'DOCDOC'.  A  BANNER  PAGE  WITH  THE  WORD  ' END'  FOLLOWS  THE 

I  1  CT 
L  1  jl  . 

author 

DAVID  V  SOMMER  -  D7NSRDC  CODE  1892-2 

DATE  WRITTEN:  02/10/77 

DATE  «  S »  REVISED 

03/01/78  -  CONVERT  TO  CCL 


02/05  'f 


ADD  PROCEDURE  DOCDATE  TO  LIST 
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PROCEDURE  '  DOCFILE 


PURPOSE 

ATTACH  A  DOCUMENTATION  FILE 

FUNCTIONAL  CATEGORIES:  Q6 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN. DOCFILE,, LFN. PFN, ID. PW1,PW2,PW3.PW4,PW5. 


DESCRIPTION  OF  PARAMETERS 

LFN  -  LOCAL  FILE  NAME  TO  BE  USED 

PFN  -  FIRST  PART  OF  PFN. 

FULL  PFN  IS  PF N_DQCUM£NT AT  I ON . 

ID  -  ID  UNDER  WHICH  IT  IS  CATALOGED 

f DEFAULT:  SYSTEM  PUBLIC  ACCESS  ID  < 
PW1-PW5  -  PASSWORDS 


■  AAUu  i 
Mf 


DsiGi  N  b  i  A  ; 


mu  MEANINGFUL  DEFAULT  VALUES 
MAX  Ft:  45006 


REMARKS 

SAME  AS:  ATTACH. LFN.  PPN_DOCUMEN? AT TON, ID=* —  * . PW=PW1 ,PW2 . 
?W3 . PW4 . PW5 . 


AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1692 
DATE  WRITTEN:  02/01  76 


DATE ? Si  REVISED 

03/01*78  -  CONVERT 


70  CCL :  INCREASE 
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PROCEDURE  ' DOCGET' 


PURPOSE 

GET  (EXTRACT)  SPECIFIED  DOCUMENT  FROM  A  DOCUMENTATION  FILE 

FUNCTIONAL  CATEGORIES:  Q6 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN , DOCGET  t , L I B . ID , PROG , OUTPUT , LEFT , PW1 , PW2 , PW3 , PW4 , PW5 . 

DESCRIPTION  OF  PARAMETERS 

LIB  -  FIRST  PART  OF  PFN 

(FULL  PFN  IS  PFN_DQCUMENTATION ) 

ID  -  ID  UNDER  WHICH  IT  IS  CATALOGED 

(DEFAULT:  SYSTEM  PUBLIC  ACCESS  ID) 

PROG  -  NAME  OF  DOCUMENT  TO  BE  EXTRACTED 
(USE  ' ALL'  FOR  ALL  DOCUMENTS) 

OUTPUT  *  LISTABLE  OUTPUT 
LEFT  -  PRINT  CENTERING 

OMITTED  OR  'LEFT'  -  LEFT-JUSTIFIED  ON  PAGE 
OTHER  -  CENTERED  ON  WIDE  PAGE 

PW1-PW5  -  PASSWORDS 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL:  30000B 

REMARKS 

NONE 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 
DATE  WRITTEN:  02/01/76 
DATE ( S '  REVISED 

12/01/77  -  ADD  'LEFT'  PARAMETER 
03/01/78  -  CONVERT  TO  CCL:  ADD  5  PASSWORDS 
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PROCEDURE  'DOCLIST' 


PURPOSE 

LIST  DOCUMENT  NAMES  (ON  *DECK  CARDS)  IN  A  DOCUMENTATION  FILE 

FUNCTIONAL  CATEGORIES:  Q6 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, DOCLIST . , LIB, ID .OUTPUT ,PW1 , PW2 , PW3 , PW4 , PW5 . 

DESCRIPTION  OF  PARAMETERS 

LIB  -  FIRST  PART  OF  PFN 

(FULL  PFN  IS  PFN_DOCUMENTAT ION ) 

ID  •  ID  UNDER  WHICH  IT  IS  CATALOGED 

iDEFAULT:  SYSTEM  PUBLIC  ACCESS  ID! 

OUTPUT  -  L I  STABLE  OUTPUT 
PW1-PW5  -  PASSWORDS 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL:  27000B 

REMARKS 

IN  ADDITION  TO  THE  DOCUMENT  NAMES,  THE  NUMBER  OF  CARDS, 

LINES  AND  PAGES  IS  GIVEN  FOR  EACH  DOCUMENT. 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892. 2 

DATE  WRITTEN:  02/01/76 

DATE ( S )  REVISED 
04/23/76 

03/01/78  -  CONVERT  TO  CCL:  ADD  5  PASSWORDS 


PROCEDURE  ' DOCREPL' 


PURPOSE 

REPLACE  ONE  DOCUMENT  IN  A  DOCUMENTATION  FILE 

FUNCTIONAL  CATEGORIES:  06 

LOCATION  OF  PROCEDURE 

S':  STEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, DOCREPL, , LIB. ID. PROG. AFTER tLFN. AC. PW1 , PW2. PW3.PW4 , PW5 . 

DESCRIPTION  OF  PARAMETERS 

LIB  -  FIRST  PART  OF  DOCUMENTATION  FILE  PFN 
(FULL  PFN  IS  L 1 B_DOCUMENT  AT  ION ) 

ID  -  ID  UNDER  WHICH  IT  IS  CATALOGED 

(DEFAULT:  SYSTEM  PUBLIC  ACCESS  ID! 

PROG  -  NAME  OF  DOCUMENT  TO  BE  REPLACED 

AFTER  -  NAME  07  DOCUMENT  AFTER  WHICH  THIS  DOCUMENT  IS  TO 

BE  PLACED 

(IF  BUNK.  WILL  GO  IN  ALPHABETICAL  ORDER. 

IF  ’ O' .  WILL  GO  AT  START  OF  FILE . 

IF  ' END'  .  WILL  GO  AT  END  OF  FILE.  > 

(USED  ONLY  IF  PROG  DOES  NOT  ALREADY  EXIST  IN  THE 
DOCUMENT  FILE,  i 

LFN  *  LFN  OF  FILE  CONTAINING  NEW  DOCUMENT. 

IT  IS  REWOUND  BEFORE  BEING  READ.  IT  MUST  NOT 
CONTAIN  A  -DECK  CARD. 

AC  -  JOB  ORDER  NUMBER  FOR  CATALOG 

(MAY  BE  OMITTED' 

PW1-PW5  -  PASSWORDS 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL:  3 l 000B 


REMARKS 

‘HE  LOWEST  CYCLE  0^  L I B_DOCUMENT  AT  ION  IS  PURGED.  IF 
POSSIBLE.  AT  LEAST  2  CYCLES  ARE  ALWAYS  RETAINED. 


EXAMPLES 

ASSUME  THE  OLD  DOCUMENT  FILE  WAS  CATALOGED  WITH: 

CATALOG, FILE , MYDOCUMENT AT  I  ON ,ID  =  XXXX,XR  =  RONLY. 

AND  HAS  DOCUMENTS:  A,  B,  D,  F,  G,  H. 

TO  REPLACE  DOCUMENT  F  (NEW  DOCUMENT  ON  LFN  FF!: 

BEGIN, DOCREPL, .MY.XXXX.F. , FF , .RONLY. 

THE  NEW  DOCUMENT  FILE  WILL  HAVE:  A,  B,  D.  F,  G.  H. 

TO  REPLACE  DOCUMENT  E  'NEW  DOCUMENT  ON  LFN  EE:: 

EEGIN, DOCREPL, .MY.XXXX.E, .EE, .RONLY. 

THE  NEW  DOCUMENT  FIlE  WILL  HAVE:  A,  B,  D.  E,  F,  G.  H. 

NOTE  THAT  SINCE  E  DID  NOT  EXIST,  REPLACE  WAS  CHANGED  TO  ADD. 
BECAUSE  THE  AFTER  PARAMETER  WAS  OMITTED.  E  WAS  ADDED 
ALPHABETICALLY . 
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AUTHOR 
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PROCEDURE  '  DOCTAPE' 

PURPOSE 

EXTRACT  (PRINT)  ONE  OR  ALL  DOCUMENTS  FROM  A  DOCUMENT  FILE 
ON  TAPE 

FUNCTIONAL  CATEGORIES:  Q6 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, DOCTAPE. , LIB, DOC, OUTPUT .LEFT. 

DESCRIPTION  OF  PARAMETERS 

LIB  -  LIBRARY  CONTAINING  PROGRAM  WHOSE  DOCUMENT  IS 
REQUESTED 

DOC  -  NAME  OF  DOCUMENT 

(USE  'ALL'  TO  PRINT  ALL  DOCUMENTS) 

OUTPUT  -  LISTABLE  OUTPUT 

LEFT  -  OMITTED  OR  LEFT  -  PRINT  AT  LEFT  OF  PAGE 

AN' THING  ELSE  -  PRINT  IN  CENTER  OF  WIDE  PAPER 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  default  VALUES 

MA>  F L :  32000B 

REMARKS 

DOCTAPE  IS  A  BATCH-ONLY  PROCEDURE. 

THE  FOLLOWING  LIERaRIES  ARE  SUPPORTED: 

ARLNARG 
EISPACK 
FUNPACK 
IMSL 
L INPACK 
M INPACK 

MSL  (ONLY  A  FEW! 

GENERALLY,  THE  DOCUMENTS  ARE  SOME  OF  THE  COMMENT  CARDS 
EXTRACTED  FROM  THE  SOURCE  PROGRAMS. 

ERROR  MESSAGES 

DOCTAPE  REQUIRES  A  TAPE  AND  MUST  BE  RUN  IN  BATCH 
USER  TRIED  TO  USE  DOCTAPE  UNDER  INTERCOM 

EISPACK  DOCUMENTATION  NOT  READY 
SELF-EXPLANATORY 


INVALID  LIBRARY  i <L 1 B>  > 

SELF-EXPLANATORY  i SEE  REMARKS  ABOVE i 

NO  DOCUMENT  REQUESTED 
SELF-EXPLANATORY 

NO  LIBRARY  REQUESTED 
SELF-EXPLANATORY 
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AUTHOR 

DAVID  V  SOMMER 


DTNSRDC  CODE  1892.2 
DATE  WRITTEN:  09/01/77 


DATE ( S )  REVISED 

03/01/78  -  CONVERT  TO  CCL 
11/08/79  -  ADD  UNPACK 


PROCEDURE  'GETPROD' 


PURPOSE 

GET  PRODUCTS  FILE(S)  FOR  NOS/BE  LEVELS  461,  439,  434,  420, 
414,  410,  406,  401,  380 

FUNCTIONAL  CATEGORIES:  00 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 


USAGE 

BEGIN, GETPROD, , LVL , C0B0L5 , SORTMRG . 


DESCRIPTION  OF  PARAMETERS 

LVL  -  DESIRED  LEVEL  (SEE  PURPOSE  ABOVE) 

( LFN  'PROD'  WILL  CONTAIN  THE  PRODUCTS  FILE! 
C0BQL5  -  NON-BLANK  -  GET  C0B0L5  FILE  i L VL=46 1 /434 t 

(LFN  ' CBL'  WILL  CONTAIN  IT) 
SORTMRG  *  NON-BLANK  -  GET  SORT/MERGE  FILE  (LVL=46l< 

(LFN  ' S0RTL1B'  WILL  CONTAIN  IT) 


DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 


MAX  H:  20000B 
REMARKS 

LVL=4 14/41 0/406/ 401/380  ARE  OBTAINED  FROM  TAPE  AND  MUST 
BE  RUN  IN  BATCH  MODE. 

ERROR  MESSAGES 

GETPROD  BELOW  lVL=420  REQUIRES  A  TAPE 
AND  MUST  BE  RUN  FROM  BATCH 
SELF-EXPLANATORY 

INVALID  LEVEL  (<LVL>) 

MUST  BE  ONE  OF: 

461  439  434  420  414  410  406  401  380 
SELF-EXPLANATORY 

NO  LEVEL  REQUESTED 
MUST  BE  ONE  OF: 

461  439  434  420  414  410  406  401  380 
SELF-EXPLANATORY 


AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 
DATE  WRITTEN:  11/30/78 
DATE  t  S »  REVISED 


,'30/78 
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PROCEDURE  'GRIPE' 

PURPOSE 

ALLOW  USER  TO  MAKE  GRIPES  OR  SUGGESTIONS  DIRECTLY  TO  THE 
COMPUTER. 


FUNCTIONAL  CATEGORIES:  SO 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 


USAGE 

BEGIN, GRIPE, .OUTPUT , PROMPT , DUMMY , INPUT . 


DESCRIPTION  OF  PARAMETERS 

OUTPUT  -  LI  STABLE  OUTPUT,  IF  USER  REQUESTS  A  COPY  OF  HIS 
COMMENTS.  TO  PRINT  AT  THE  TELETYPE.  USER  MUST 


PROMPT 


CONNECT, OUT  PUT. 
INTERACTIVE  USE  ONLY: 
IF  NO  -  ONLY  NOMINAL 
IF  CM  TIED  OR  ANYTHING 


PROMPTING  IS  PROVIDED. 
ELSE  -  FULL  PROMPTING 


DUMMY 

INPUT 


IS  PROVIDE 
RESERVED  F 
BATCH :  F  I  l 


D. 

OR  FUTURE  USE 
E  FROM  WHICH  GRIPE 


AND  ADMINISTRATIVE 


INFORMATION  IS  TO  BE  READ. 

ERACTIVE:  IF  GRIPE  IS  TO  BE  ENTERED  DIRECTLY 
FROM  THE  KEYEOARD.  OMIT  THIS  PARAMETER. 

IF  THE  GRIPE  WAS  PREPARED  EARLIER  'E.G..  USING 
EDrORi.  ENTER  THE  LFN  OF  THE  FILE  CONTAINING 
THE  GRIPE  f  DC  NOT  USE  LFN  'INPUT'  i. 


DEFAULT  BEGIN  STATEMENT 

BATCH  :  BEGIN. GRIPE. .OUTPUT, . .INPUT. 

INTERACTIVE:  BEGIN, GRIPE, .OUTPUT. 


MAX  FL:  360003 


REMARKS 

ALL  GRIPES  WILL  3E  READ  AND  TROUBLE  FORMS  PREPARED,  IF 
APPROPRIATE. 


DATA  CARDS  (BATCH  ONLY • 

THE  GRIPE  IS  ENTERED  IN  COLUMNS  1-70  OF  AS  MANY  CARDS  AS 
REQUIRED  (PLEASE  BE  BRIEF  * .  THIS  IS  FOLLOWED  BY  A  CARD  WH 
'END  '  IN  COLUMNS  1-10. 

THE  LAST  CARD  HAS  ADMINISTRATIVE  INFORMATION  FOR  PREPARING 
TROUBLE  FORM.  SHOULD  ONE  BE  NECESSARY .  IT  CONTAINS: 

COL  CONTENTS 

1*20  NAME 

21-40  DTNSRDC  CODE  OR  COMPANY  NAME 
41-50  TELEPHONE 

51-54  USER  I N I~ I A_ S  1  OF  THE  FORM  XXXX' 
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GRIPE 


PROCEDURE  ' LGOTREE' 


PURPOSE 

GENERATE  CROSS-REFERENCE  LISTS  AND  TREE  STRUCTURE  FROM 
BINARY  RELOCATABLE  OBJECT  PROGRAM 

FUNCTIONAL  CATEGORIES:  Q6 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 


USAGE 

BEGIN. LGOTREE, , LFN , OUTPUT , RFL . 


DESCRIPTION  OF  PARAMETERS 

LFN  -  RELOCATABLE  PROGRAM  TO  BE  PROCESSED  (DEFAULT;  LGO) 
OUTPUT  -  LI  STABLE  OUTPUT 

RF L  -  FL  NEEDED  FOR  EXECUTION  OF  STRUCTURE  PROGRAM 

(DEFAULT  OF  30000  IS  SUFFICIENT  FOR  MOST  FILES! 
(USER'S  FL  IS  RESTORED  TO  THE  SYSTEM  DEFAULT) 


: AULT  BEGIN  STATEMENT 
BEGIN. LGOTREE . . LGO. OUT  PUT . 30000. 


MAX 


300003  'OR  AS  USER  SPECIFIES  IN  THIRD  PARAMETER 


REMARKS 

THIS  PROCEDURE  USES  A  PRO-AM  WRITTEN  AT  THE  CONSTRUCTION- 
ENGINEERING  RESEARCH  LABC  <Y  (CERL)  AND  MODIFIED  AT 
DTNSRDC. 

REFERENCES  IN  A  MAIN  PROGRAM  TO  FILES  LISTED  IN  THE  PROGRAM 
STATEMENT  WILL  HOT  GENERATE  EXTERNAL  REFERENCES  AND. 
THEREFORE.  WILL  NOT  APPEAR  IN  -»£  CROSS-REFERENCE  LISTS  OR 
TREE  STRUCTURE.  REPLACING  THE  f ROGRAM  STATEMENT  WITH  ONE 
CONTAINING  NO  FILES  (E.G..  PROGRAM  SAMPLE’ !  WILL  FORCE 
EXTERNAL  REFERENCES  FOR  I/O  OPERATIONS  WHICH  WILL  THEN  BE 
PROCESSED  EY  THE  STRUCTURE  PROGRAM. 

ERROR  MESSAGES 

ABNORMAL  TERMINATION 

IF  NO  OTHER  ERRORS  LISTED.  INCREASE  RFL 

USER-SPECIFIED  (OR  DEFAULT!  RFL  WAS  NOT  SUFFICIENT. 

THE  PROCEDURE  ENDS  WITH  *  REVERT , ABORT1  . 

<QUTPUT>  CONTAINS  STRUCTURE  OF  FILE  <LFN> 

PROCEDURE  WAS  SUCCESSFUL 

AUTHORS 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2  -  PROCEDURE  'LGOTREE' 
PETE  ROTH  -  DTNSRDC  CODE  i?5.2  -  PROGRAM  'ANATOMY' 

DATE  WRITTEN:  07/06/77 


SED 

-  CONVERT  TO  CCL 

-  CHANGE  NAME  FROM  *  ST 

-  USE  MODIFIED  STRUCT 


RUCT'  TO  'LGOTREE' 
PROGRAM  CALLED  ANATOMY 


12-  10  'BO 
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PROCEDURE  ' L1BPRO 


PURPOSE 

EXECUTE  A  PROCEDURE  ON  LIBRARY  'PROCFIL'  CATALOGED  UNDER  ANY 
ID 

FUNCTIONAL  CATEGORIES:  LO  03 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, LI BPRO. , ID , PNAME , PARAMS . 


■niiPililS 


PROCEDURE  ' L1BPRQA' 

PURPOSE 

EXECUTE  A  PROCEDURE  ON  ANY  CATALOGUED  PROCEDURE  LIBRARY 

FUNCTIONAL  CATEGORIES:  LO  Q3 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN. LI BPROA, .PFN, ID , PNAME , P ARAMS . 

DESCRIPTION  OF  PARAMETERS 

PFN  -  PERMANENT  FILE  NAME  OF  PROCEDURE  FILE 
ID  -  ID  UNDER  WHICH  PFN  IS  CATALOGED 

PNAME  -  PROCEDURE  NAME 

PARAMS  -  UP  TO  17  POSITIONAL  PARAMETERS  FOR  'PNAME' 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL:  DEPENDS  UPON  PROCEDURE  BEING  EXECUTED 


REMARKS 

ANY  'LIBRARY'  STATEMENT  IN  EFFECT  WHEN  *  LI BPROA'  STARTS  IS 
CLEARED  WHEN  ' LIBPROA'  FINISHES. 

SEE  ' L I B PRO'  IF  THE  PFN  IS  PROCFIL'. 

SEE  ANYPROS*.  ' MYPRCS'  FOR  SEQUENTIAL  PROCEDURE  FILES. 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  18S2.2 
DATE  WRITTEN:  11/01/79 
DATE  c  S ’  REVISED 


(  1 


i  -i  /  *  A  /7Q 

*  s  s  l  **  /  /  ^ 


LIBPROA  -  1  OF 
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PROCEDURE  ' LIBSET 1 


PURPOSE 

CREATE  SIMPLE  ABSOLUTE  USING  ONE  EDITLIB  LIBRARY 
FUNCTIONAL  CATEGORIES:  LO  Q3 


LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 


PROCEDURE  ' LIB5ET2 


PURPOSE 

CREATE  SIMPLE  ABSOLUTE  USING  TWO  EDITLIB  LIBRARIES 

FUNCTIONAL  CATEGORIES:  10  03 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 


USAGE 

BEGIN. LIBSET2. .LG0.ABS.LIB1 ,ID1 .L1B2.ID2. 


DESCRIPTION 

i  r*r\ 

LuU 

ABS 
L I B 1 

31 


L  Is*: 


OF  PARAMETERS 

-  RELOCATABLE  PROGRAM 

-  RESULTING  ABSOLUTE  MODULE 

-  PFN  OF  FIRST  EDITLIB  USER  LIBRARY 
(DEFAULT:  NSRDC ) 

-  ID  UNDER  WHICH  L I B 1  IS  CATALOGED 
(DEFAULT:  SYSTEM  PUBLIC  ACCESS  ID) 

-  PFN  OF  SECOND  EDITLIB  USER  LIBRARY 
(DEFAULT:  NSRDC) 

-  ID  UNDER  WHICH  LIB2  IS  CATALOGED 

t DEFAULT :  SYSTEM  PUBLIC  ACCESS  ID » 


DEFAULT  BEGIN  STATEMENT 

BEGIN. L1BSET2..LGU. ABS. NSRDC. .NSRDC. 

KAJ.  Fl:  DEPENDS  ON  PROGRAM  BEING  LOADED 


REMARKS 

NONE 


AUTHOR 

DAVID  V  SOMMER 

DATE  WRITTEN:  03/0 

DATE! Si  REVISED 
03/01/78  -  CONV 


-  DT NSRDC  CODE  1892.2 
1/76 


PROCEDURE  ' LINE6' 


PURPOSE 

SET  PRINT  FILE  TO  6  LINES  PER  INCH 


FUNCTIONAL  CATEGORIES:  J4 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, L1NE6. .OUTPU". 

DESCRIPTION  OF  PARAMETER 
OUTPUT  -  LISTABLE  OUTPUT 

DEFAULT  BEGIN  STATEMENT 
BEGIN, L1NE6. .OUTPUT . 


MAY  FL:  6000B 


REMARKS 

USER  SHOULD  PRINT  THE  NEXT  LINE  AT  THE  TOP  OF  THE 

author 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 
DATE  WRITTEN:  06/07/76 


DATE  I S i  REVISED 

03/01  x 7 6  -  CONVERT  TO  CCL 
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L3NE6 


k,  HMiUniwiiHh 


PROCEDURE  'LINES' 

PURPOSE 

SET  PRINT  FILE  TO  8  LINES  PER  INCH 

FUNCTIONAL  CATEGORIES:  J4 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, LINE8, .OUTPUT, 

DESCRIPTION  OF  PARAMETER 
OUTPUT  -  LISTABLE  OUTPUT 

DEFAULT  BEGIN  STATEMENT 
BEGIN, L1NE8, .OUTPUT . 

MAX  FL:  6000B 

REMARKS 

USlR  SHOULD  PRINT  THE  NEXT  LINE  AT  THE  TOP  OF 
AUTHOR 

David  v  sommer  -  dtnsrdc  code  1392.2 

DATE  WRITTEN:  06/07/76 

DATE;S)  REVISED 

03/01/78  -  CONVERT  TO  CCL 


£ 


i 


t.-j 


PROCEDURE  'LIST' 

PURPOSE 

LIST  A  PERMANENT  FILE 

FUNCTIONAL  CATEGORIES:  01 

COMPUTER 
CDC  6000 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, LIST, , PFN , ID , OUTPUT , 8 . RTN , SHI  FT , PW 1 . PW2 , SN . 
DESCRIPTION  OF  PARAMETERS 


PFN 

ID 

OUTPUT 

8 


SHIFT 


Ptoi , PW2 
SN 


-  PERMANENT  FILE  NAME 

-  ID  UNDER  WHICH  PFN  IS  CATALOGED 

-  LISTABLE  OUTPUT 

-  PRINT  DENSITY 

OMITTED  OR  8  -  8  LINES  PER  INCH 

OTHER  -  6  LINES  PER  INCH 

-  LISTING  PROGRAM  DESIRED 
OMIT TIED  -  C0P1SF 

OTHER  -  LIS1Z  IN  LIBRARY  'UTILITY') 

-  NUMBER  OF  COLUMNS  TO  SHIFT  PRINTOUT  (DEFAULT:  II 
IFOR  A  FILE  HAVING  CARRIAGE  CONTROL  IN  COLUMN  1  OF 

EACH  LINE,  USE  0  TO  USE  THOSE  CARRIAGE  CONTROL 
CHARACTERS' 

(SHIFT  IS  USED  ONLY  IF  RTN  IS  OMITTED) 

-  TK  AND  RD  PASSWORDS 

-  SETNAME  (DEFAULT:  S'iSSETl 


DEFAULT  BEGIN  STATEMENT 
LIST,*. .OUTPUT. .8, . 1  . 

<*  -  USER  MUST  SUPPLY) 

MAX  FL:  33000B 

REMARKS 

THIS  IS  SOMEWHAT  LIKE  THE  BURROUGHS  LIST  COMMAND  IN  THAT  IT 
WILL  ATTACH  THE  FILE  BEFORE  LISTING  IT  AND  RETURN  IT  AFTER. 

EXAMPLES 

1)  LIST  A  SEQUENTIAL  SOURCE  PROGRAM  OR  DATA  FILE  USING 
LISTZ: 

BEGIN, LIST, , SOURCE /MY PROG , XXXX , , ,Z. 

2)  LIST  A  DOCUMENT  FILE: 

BEGIN, LIST, , DOC/MYPRDG , XXXX , ,0. 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 
DATE  WRITTEN:  09/25/80 
DATE i S I  REVISED 

C2/25/8 1  *  GENERALIZE  AND  ADD  TO  PUBLIC  PROCEDURE  FILE 
02  '26/81  2-55  LIST  -  1  OF 


PROCEDURE  'MANUAL' 


PURPOSE 

PRINT  ONE  COPY  OF  A  MANUAL  OR  ITS  REVISION  PAGES 

FUNCTIONAL  CATEGORIES:  01 

COMPUTER 
CDC  6000 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 


USAGE 

BEG  IN, MANUAL 


.WHICH. REV, OUTPUT, PM. 


DESCRIPTION  OF  PARAMETERS 

WHICH  -  NAME  OF  DESIRED  MANUAL 
CDC  SERIES: 

CCRM  (DEFAULT) 

CCIRM 

CL  16 

BURROUGHS  SERIES: 


REV- 


OUTPUT 

PM 


CCBRM 

CC6IRM 


BLIB 

-  (CCRM.  CCBRM 
OMITTED  OR  0 

latest 


N 


ONLT)  ONE  OF: 

-  COMPLETE  MANUAL 

-  LATEST  REVISION  RAGES 
SPECIFYING  THE  LATEST 
NUMBER) 

-  A  SPECIFIC  REVISION  NUMBER 
(EXTRACTS  ALL  REVISIONS  FROM 


(FASTER  THAN 
REVISION 


THIS 


ONE  ON) 

-  (CUE.  ELI  E  ONLY)  ONE  OF: 


OMITTED  OR  0 

-  CLIB 

OR 

BLIB 

M 

-  CLIB/M 

OR 

BUB/M 

N 

-  CLIB/N 

OR 

BLIB/N 

P 

-  CLIB/P 

OR 

BLIB/P 

U 

-  CL1B/U 

OR 

BLIB/U 

-  LISTABLE  OUTPUT 

-  OUTPUT  FORMAT.  ONE  OF: 

OMITTED  -  LEFT-JUSTIFIED,  WIDE  PAPER 
IT  -  LEFT -ADJ ,  PM  MESSAGE  GENERATED  FOR 

1-PART  NARROW  PAPER  FOR  REMOTE  BATCH 
TERMINALS 

PM  -  SAME  AS  IT 

C  -  CENTERED  ON  WIDE  PAPER 


DEFAULT  BEGIN  STATEMENT 

BEG IN. MANUAL, .CCRM. 0, OUT PUT . 


MAX  FL:  30000B 


remarks 

NONE 


02/26/SI 
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MANUAL 
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ERROR  MESSAGES 

CCL  PROCEDURE  'MANUAL'  VI. 2 

PM  PARAMETER  <<PM>)  INVALID  -  MUST  BE  ONE  OF: 

OMITTED  ( LEFT- AD J ,  WIDE  PAPER) 

IT  I  LEFT -AD J .  PM  MESSAGE  GENERATED  FOR 

NARROW  PAPER  ON  REMOTE  TERMINAL) 

C  cncu,  ftiut  hArcrt » 

CCL  PROCEDURE  'MANUAL'  V-1  . 2 

WHICH  PARAMETER  (<WH1CH>)  INVALID  -  MUST  BE  ONE  OF':' 

CCBIRM  -  COMPUTER  CENTER  BURROUGHS  INTRODUCTORY  REFERENCE 
MANUAL 

CCBRM  -  COMPUTER  CENTER  BURROUGHS  REFERENCE  MANUAL 

BLIB  -  COMPUTER  CENTER  BURROUGHS  L*I  BR  ARIES 

tREV  IS  ONE  OF:  OMITTED,  M,  N.  P.  Ui 
CCIRM  -  COMPUTER  CENTER  CDC  INTRODUCTORY  REFERENCE 
MANUAL 

CCRM  -  COMPUTER  CENTER  CDC  REFERENCE  MANUAL 

CLIB  -  COMPUTER  CENTER  CDC  LIBRARIES 

REV  IS  ONE  OF:.  OMITTED.  M.  N.  P,  U> 

EXAMPLES 

TO  DRINT  THE  COMPlETE  CCRM  ON  NARROW,  UN L I  NED  PAPER  AT 
REMOTE  BATCH  TERMINAL  Oil:  ‘ 

BEGIN .MANUAL , .CCRM, .OUT, IT 
ROUTE , CU* ,DC=PR,T!D=011,FID=*. 

2 1  TO  PRINT  THE  LATEST  CCRM  REVISION  PAGES  ON  NARROW, 

UNLINED  PAPER  AT  CENTRAL  SITE: 

BEGIN. MANUAL , . CCRM . L  AT  E  ST , OUT . 

ROUTE .OUT  DC=PR,TID=C.F1D=*,FC=1T. 

3 1  TO  PRINT  CCRM.  REVISION  3  ON: 

BEGIN. MANUAL, .CCRM. 3. 


4i  10  PRINT  CCRM,  ALL  REVISIONS.  CENTERED: 

BEGIN, MANUAl. .CCRM. 1 . ,C. 

5'  TO  PRINT  BLIB/N  ON  NARROW,  UNlINED  PAPER  AT  REMOTE 
TERMINAL  Oil: 

BEGIN, MANUAL, . BL IB . N . OUT  ,  1 7  . 

ROUTE .OUT. DC=PR.TID=01 1 . 


AUTHOR 


SOMMER 


'  NSRDC  1892.2 


WRITTEN: 


DATE  s  S i  REVISED 

12  09/80  *  'PM'  PARAMETER  EXPANDED  TO  ALLOW  CENTERING  OPTION 
01.23/6’  -  EXPAND  TO  PRINT  CCL IB-SERIES  AND  CCBUB-SERIES 
c  REPLACES  PROCEDURES  CCLIB'  AND  'CCBLlE'1 
02/26  61  -  CHANGE  CCLIB  TO  CLIB.  CCELIB  TO  BLIB 


PROCEDURE  '  MFX' 


PURPOSE 

TELL  INTERACTIVE  USER  WHICH  MAINFRAME  HE  IS  USING 

FUNCTIONAL  CATEGORIES:  QO 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN. MFX. 

DEFAULT  BEGIN  STATEMENT 
BEGIN, MFX. 

MAX  FL:  6000B 

REMARKS 

NONE 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 
DATE  WRITTEN:  MID- 1977 


DATE ( S )  REVISED 

03/01/78  -  CONVERT  TO  CCL 


PROCEDURE  '  NINSRDC' 


PURPOSE 

EXECUTE  A  PROGRAM  ON  EDI TL IB  USER  LIBRARY  ' MNSRDC' 

FUNCTIONAL  CATEGORIES:  LO  Q3 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, MNSRDC. . PROG , PARAMS . 

DESCRIPTION  OF  PARAMETERS 

PROG  -  PROGRAM  TO  BE  EXECUTED 
PARAMS  -  UP  TO  19  PARAMETERS  FOR  'PROG' 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MA'  Fl:  DEPENDS  ON  PROGRAM  BEING  EXECUTED 

REMARKS 

NONE 

author 

DAVID  V  SOMMER  -  D7NSRDC  CODE  1892.2 

DATE  WRITTEN:  07/25/77 

DATE  <  S  1  REVISED 

03/01/76  -  CONVERT  TO  CCL 


PROCEDURE  ' MYPRO' 


PURPOSE 

EXECUTE  A  PROCEDURE  ON  FILE  'PROCFIL'  CATALOGED  UNDER  ANY  ID 

FUNCTIONAL  CATEGORIES:  LO  Q3 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, MYPRO. , ID , PNAME , PARAMS . 

DESCRIPTION  OF  PARAMETERS 

ID  -  ID  UNDER  WHICH  PROCEDURE  FILE  IS  CATALOGED 

(PFN  MUST  BE  ' PROCFIL'  ) 

PNAME  -  PROCEDURE  NAME 

PARAMS  -  UP  TO  18  POSITIONAL  PARAMETERS  FOR  PROCEDURE 
' PNAME' 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL:  DEPENDS  UPON  PROCEDURE  BEING  EXECUTED 

REMARKS 

SEE  'ANYPRD'  OR  ’ ANYPROS'  FOR  ANY  PROCEDURE  FILE. 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 


jjt  j  ji „nlih . . 


PROCEDURE  '  MYPROS 


PURPOSE 

EXECUTE  A  PROCEDURE  ON  SEQUENTIAL  FILE  'PROCFILS'  CATALOGED 
UNDER  ANY  ID 

FUNCTIONAL  CATEGORIES:  LO  Q3 


LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN , MYPROS , , ID, PNAME , PARAMS . 

DESCRIPTION  OF  PARAMETERS 

ID  -  ID  UNDER  WHICH  SEQUENTIAL  PROCEDURE  FILE  IS 

CATALOGED  < PFN  MUST  BE  'PROCFILS'  ) 

PNAME  -  PROCEDURE  NAME 

PARAMS  -  UP  TO  18  POSITIONAL  PARAMETERS  FOR  PROCEDURE 
'PNAME' 

Dt FAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  ?L:  DEPENDS  LPQN  PROCEDURE  BEING  EXECUTED 

REMARKS 

SEE  MY PRO'  FOR  RANDOM  FILE  'PROCFIL'.  ' ANYPRO'  FOR  ANY 
PROCEDURE  FILE. 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 
DATE  WRITTEN:  03/27/78 
DATEiS1  REVISED 


PROCEDURE  'NOGO' 


PURPOSE 

CREATE  SIMPLE  ABSOLUTE  FROM  RELOCATABLE 

FUNCTIONAL  CATEGORIES:  LO  03 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, NOGO, .LGO, ABS. 

DESCRIPTION  OF  PARAMETERS 

LGO  -  RELOCATABLE  PROGRAM 

ABS  -  RESULTING  ABSOLUTE  MODULE 

(MAY  BE  CATALOGED) 

DEFAULT  BEGIN  STATEMENT 
BEGIN, NOGO.. LGO. ABS. 

MAX  FL:  DEPENDS  UPON  PROGRAM  BEING  LOADED 

REMARKS 

NONE 


AUTHOR 


DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 

DATE  WRITTEN:  04/21/76 

DATE C S !  REVISED 

03/01/78  -  CONVERT  TO  CCL 


. . . 


PROCEDURE  'NORERUN' 


PURPOSE 

INSURE  THAT  A  BATCH  JOB  CANNOT 
TYPE- IN 


BE  RERUN  BY  OPERATOR 


FUNCTIONAL  CATEGORIES:  QO 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 


USAGE 

BEGIN, NORERUN. 

DEFAULT  BEGIN  STATEMENT 
BEGIN. NORERUN. 

MAX  FL:  4500B 


REMARKS 

THIS  PROCEDURE 


WILL  CATALOG  AND  PURGE  A  DUMMY  FILE 


ERROR  MESSAGES 

SORRY  -  NORERUN  IS  FOR  BATCH  ONLY 

TRIED  TO  EXECUTE  PROCEDURE  OUTSIDE  OF  BATCH 


AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE 


1892.2 


DATE  WRITTEN:  06/14/77 


DATFlSt  REVISED 

03/01/76  -  CONVERT  TO  CCL 
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NORERUN 


PROCEDURE  OAC' 


PURPOSE  i 

PURGE  All  CYCLES  OF  A  FILE  V 

FUNCTIONAL  CATEGORIES:  Q4 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN , PAC, . PFN , ID. PW1 , PW2 , PW3 , PW4 , PW5 , SN , UV  . 

DESCRIPTION  OF  PARAMETERS 

PFN  -  PERMANENT  FILE  NAME 

ID  -  ID 

PW1-PW5  -  UP  TO  5  PASSWORDS 

SN  -  SETNAME  (DEFAULT:  SYSSET i 

UV  *  UNIVERSAL  PASSWORD  (FOR  USER  DEVICE  SETS! 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 


PROCEDURE  ' PAHC' 

PURPOSE 

PURGE  ALL  HIGH  CYCLES  WHILE  RETAINING  LOW  CYCLE 

FUNCTIONAL  CATEGORIES:  Q4 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 


USAGE 

BEGIN. PAHC, .PFN, ID.PW1 , PW2 . PW3. PW4. PW5. SN.UV. 

DESCRIPTION  OF  PARAMETERS 

PFN  -  PERMANENT  FILE  NAME 

ID  -  ID 

PW1-PW5  -  UP  TO  5  PASSWORDS 

SN  -  SETNAME  (DEFAULT :  SYSSETS 

UV  -  UNIVERSAL  PASSWORD  (FOR  USER  DEVICE  SETS* 


DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 


MAX  F! 


150C0B 


REMARKS 

NONE 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 


DATE  WRITTEN:  01/27/60 
DATE (Si  REVISED 

02/24/81  -  ADD  SN  AND  UV  PARAMETERS 


02 '24  '61 


PAHC 


PROCEDURE  'PALC' 

PURPOSE 

PURGE  ALL  LOW  CYCLES  WHILE  RETAINING  HIGH  CYCLE 

FUNCTIONAL  CATEGORIES:  04 

LOCATION  OF  PRQCEi-^E 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, PALC,, PFN, ID. PW1,PW2,PW3,PW4,PW5.SN,UV. 

DESCRIPTION  OF  PARAMETERS 

PFN  -  PERMANENT  FILE  NAME 

ID  -  ID 

PW1-PW5  -  UP  TO  5  PASSWORDS 

SN  -  SETNAME  {DEFAULT:  SYSSET 1 

UV  -  UNIVERSAL  PASSWORD  (FOR  USER  DEVICE  SETS 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL:  150006 

REMARKS 

NONE 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 
DATF  WRITTEN:  01/27/80 
DATE  (S’.  REVISED 

02/24/81  -  ADD  SN  AND  UV  PARAMETERS 


PROCEDURE  '  PFRSTOR' 


PURPOSE 

CREATE  A  FILE  OF  DIRECTIVES  TO  RESTORE  PERMANENT  FILES 

FUNCTIONAL  CATEGORIES:  Q4 

COMPUTER 
CDC  6000 

LOCATION  OF  PROCEDURE 

PUBLIC-ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, PFRSTOR. 

DEFAULT  BEGIN  STATEMENT 
BEGIN, PFRSTOR . 

MAX  FL; 

REMARKS 

THIS  PROCEDURE  EXECUTES  A  PROGRAM  WHICH  WILL  PROMPT  THE 
USER  FOR  INFORMATION  NEEDED  TO  CREATE  A  FILE  OF  DIRECTIVES 
WHICH  WILL  THEN  BE  USED  BY  USER  SERVICES  TO  RESTORE 
PERMANENT  FILES  WHICH  WERE  PURGED  BECAUSE  OF  LACK  OF  USE. 

THE  FILE  CREATED  HAS  P F N = R E STOR F " I L E S  AND  IS  CATALOGED  UNDER 
THE  ID  OF  THE  PERSON  RUNNING  THE  PROCEDURE. 

THE  PROGRAM  THIS  PROCEDURE  EXECUTES  HAS  BUILT-IN  DIRECTIONS. 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 
DATE  WRITTEN:  04/16/80 
DATE ( S )  REVISED 


07/15/80 
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PROCEDURE  '  PFTRAN1 ' 


PURPOSE 

INVOKE  PFTRANS  TO  TRANSFER  ONE  FILE 

FUNCTIONAL  CATEGORIES:  K1 

COMPUTER 
CDC  6000 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, PFT RANI , , PFN , ID ,CY , OUTPUT . 

DESCRIPTION  OF  PARAMETERS 

PFN  •  PERMANENT  FILE  NAME  OF  FILE  TO  BE  TRANSFERRED 
'REQUIRED) 

ID  -  ID  UNDER  WHICH  PFN  IS  CATALOGED 

•■REQUIRED) 

CY  -  IF  SPECIFIED  -  SINGLE  CYCLE  TO  BE  TRANSFERRED 

IF  OMITTED  -  ALL  CYCLES  ARE  TRANSFERRED 
OUTPUT  -  LI  ST  ABLE  OUTPUT  FROM  PROGRAM  PFTRANS 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL: 

REMARKS 

IF  SEVERAL  FILES  ARE  TO  BE  TRANSFERRED,  USE  PROGRAM  PFTRANS 
DIRECTLY. 

FOR  THE  DOCUMENT  DESCRIBING  PROGRAM  'PFTRANS': 

BEGIN. DOCGET. .OTHER, , PFTRANS , OUTPUT . 

OUTPUT  DESCRIPTION 

PFTRANS  LISTS  THE  DIRECTIVE. 

AUTHOR 

DAVID  V  SOMMER  -  UTNSRDC  CODE  1892.2  -  PROCEDURE  ONLY 
ROGER  YEARICK  -  DTNSRDC  CODE  1892.3  -  PROGRAM  PFTRANS 

DATE  WRITTEN:  10/12/79 

DATE(S)  REVISED 

03/05/80  -  REMOVE  TEST  FOR  PRESENCE  OF  PF/1D 


11/04 / 60 
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PROCEDURE  '  PGMT APE' 


PURPOSE 

EXTRACT  A  SOURCE  PROGRAM  FROM  TAPE 

FUNCTIONAL  CATEGORIES:  06 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, PGMTAPE, , LIB , PGM , OUTF I LE , CST . 

DESCRIPTION  OF  PARAMETERS 

LIB  -  LIBRARY  i ONE  OF:  BIMED,  NSRDC  (DEFAULT), 
SSPi 

PGM  -  PROGRAM  DESIRED 

OUTFILE  -  FILE  TO  CONTAIN  SOURCE  PROGRAM 

CST  -  TYPE  OF  FILE  DESIRED 

C  *  COMPILE  FILE  I  UPDATE , C=OUTF I LE  ) 

S  -  SOURCE  FILE  (UPDATE, S  =  OUT FILE) 

T  -  SOURCE  FILE  (UPDATE  T  =  OUTF I LE  ) 


DEFAULT  BEGIN  STATEMENT 

BEG  I N , PGMTAPE . , NSRDC , * . COMP i lE , C . 

I*  -  USER  MUST  SUPPLY, 

MAX  FL:  42000B 

REMARKS 

THIS  IS  A  BATCH-ONLY  PROCEDURE.  THE  JOB  CARD  MUST  SPECIFY 
MT1.  THE  PROCEDURE  WILL  SUPPLY  THE  LABEL  CARD. 

ERROR  MESSAGES 

NO  PROGRAM  REQUESTED 

PARAMETER  'PGM'  WAS  OMITTED. 

PGMTAPE  REQUIRES  A  TAPE  AND  MUST  5E  RUN  FROM  BATCH 
USER  TRIED  TO  EXECUTE  PGMTAPE  FROM  INTERCOM. 

UNKNOWN  LIBRARY  I  < L I B >  » 

INDICATED  LIBRARY  NAME  IS  NOT  SUPPORTED. 

EXAMPLE 

GET  SOURCE  PROGRAM  FOR  PROGRAM  * CMPINV'  IN  LIBRARY  'NSRDC' 

JOBNAME ,MT 1 . 

CHARGE . 

BEGIN, PGMTAPE, ,, CMPINV , F 1 LE  . 

LFN  'FILE'  CONTAINS  A  COMPILE  FILE  COPY  OF  'CMPINV'. 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 

DATE  WRITTEN:  08/24/7? 

DATE'S)  REVISED 

03/01/78  -  CONVERT  ^0  CCL 

01/21 '61  2-69  PGMTAPE  -  1  OF 


PROCEDURE  ' PHC' 


PURPOSE 

PURGE  HIGH  CYCLE  WHILE 


RETAINING  LOW  CYCLE 


FUNCTIONAL  CATEGORIES:  Q4 


LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 


USAGE 

BEGIN , PHC , , PFN , ID , PW1 , PW2 , PW3 , PW4, PW5 , SN, UV . 

DESCRIPTION  OF  PARAMETERS 

PFN  -  PERMANENT  FILE  NaME 

ID  -  ID 

PW1-PW5  -  PASSWORDS 

SN  -  SETNAME  (DEFAULT:  SYSSET ) 

UV  -  UNIVERSAL  PASSWORD  (FOR  USER  DEVICE  SETS) 


DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL :  150CDB 


REMARKS 

NONE 


AUTHOR 

DAVID  V  SOMMER  *  DTNSRDC  CODE  1892.2 
DATE  WRITTEN:  01/27/80 


DATE ( S )  REVISED 

02/24/61  -  ADD  SN  AND  UV  PARAMETERS 


02/24/61 
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PROCEDURE  '  PLC' 

PURPOSE 

PURGE  LOW  CYCLE  WHILE  RETAINING  HIGH  CYCLE 

FUNCTIONAL  CATEGORIES:  Q4 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN. PLC. .PFN.1D.PW1 , PW2 , PW3 . PW4 , PW5 , SN , UV . 

DESCRIPTION  OF  PARAMETERS 

PFN  -  PERMANENT  FILE  NAME 

ID  -  ID 

PK1-PW5  -  PASSWORDS 

SN  -  SETNAME  (DEFAULT:  SYSSETi 

UV  -  UNIVERSAL  PASSWORD  i FOR  USER  DEVICE  SET! 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL:  15DOOB 

REMARKS 

NONE 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 
DATE  WRITTEN:  CW27/80 
DATE(S!  REVISED 

02/24/61  -  ADD  SN  AND  UV  PARAMETERS 


n  o  A  •  0  < 


PROCEDURE  'PM' 


PURPOSE 

CREATE  CERTAIN  PRINT  MESSAGE  (PM)  RECORDS 

FUNCTIONAL  CATEGORIES:  J4 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN , PM, , FC, OUTPUT , PM 1 , PM2 , PM3 , PM4 , PM5 , PM6 . 

DESCRIPTION  OF  PARAMETERS 
FC  -  FORMS  COD? 

OMITTED  -  PM  RESTORE  PRINTER 

IT  -  PM  1-PART  NARROW  UNLINED  PAPER 

'OTHER'  -  PM  PM1  PM2  PM3  PM4  PM5  PM6 

(USER  MAY  CREATE  A  MESSAGE  OF  UP  TO 
6  WORDS  (30  CHARACTERS  MAX) 

OUTPUT  -  LISTABLE  OUTPUT 

PM1-PM6  -  UP  TO  5  WORDS  FOR  USER- SPEC1 F I  ED  PM  MESSAGE 
(USED  ONLY  WHEN  FC=OTHER ) 

DEFAULT  BEGIN  STATEMENT 
BEGIN, PM, , .OUTPUT. 

MAX  FL:  6000E 

REMARKS 

BE  SURE  ' BEGIN. PM. . .OUTPUT.'  HAS  BEEN  EXECUTED  TO  RESTORE 
PRINTER  BEFORE  ROUTING  OUTPUT  TO  BE  PRINTED. 

PM  MESSAGES  ARE  IGNORED  AT  CENTRAL  SITE.  USE  FC=  ON  ROUTE 
COMMAND. 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 

DATE  WRITTEN:  07/30/76 

DATE ( S !  REVISED 

11/19/76  -  ADD  'OTHER'  OPTION 
03/01/78  -  CONVERT  TO  CCL 


PM 
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PROCEDURE  ' PROADD 


PURPOSE 

ADD  ONE  PROCEDURE  TO  A  SEQUENTIAL  PROCEDURE  FILE 

FUNCTIONAL  CATEGORIES:  Q7 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN .PROADD. . ID . NEW, AC. PW1 . PW2 . PW3 . PW4 . PW5 . 
DESCRIPTION  OF  PARAMETERS 

ID  -  ID  UNDER  WHICH  PROCEDURE  FILE  IS  CATALOGED 

(PFN  IS  ' PROCFILS' ! 

NEW  -  FILE  CONTAINING  NEW  NAMED  PROCEDURE 
(MAY  NOT  BE  FILE  '  INPUT'  ! 

AC  -  AC  FOR  CATALOG  (MAY  BE  OMITTED! 

PW1-PW5  -  PASSWORDS 


DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MA>  FL :  36000E 

REMARKS 

PROCEDURE  FILE  IS  A  SEQUENTIAL  FILE  OF  NAMED  PROCEDURES 
ARRANGED  IN  ALPHABETICAL  ORDER.  EACH  PROCEDURE  CONSISTS  OF 
ONE  AND  ONLY  ONE  SYSTEM  LOGICAL  RECORD. 

ALL  EMPTY  RECORDS  ARE  REMOVED. 

THE  LOWEST  CYCLE  IS  PURGED.  IF  POSSIBLE.  AT  LEA5T  2 
CYCLES  ARE  ALWAYS  RETAINED. 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 
DATE  WRITTEN:  05/28/76 
DATE i S I  REVISED 

03/01/78  -  CONVERT  TO  CCL;  INCREASE  TO  5  PASSWORDS 
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PROCEDURE  ' PROALL 


PURPOSE 

LIST  PROCEDURE  NAMES,  PROCEDURE  HEADERS  AND  THE  PROCEDURES 
IN  A  SEQUENTIAL  PROCEDURE  FILE  (COMBINES  PRONAM.  PROHDR 
AND  PROLIST) 

FUNCTIONAL  CATEGORIES:  01 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, PROALL. . ID , OUTPUT . LEFT , ^W1 , PW2 . PW3 , PW4 , PW5 . 
DESCRIPTION  OF  PARAMETERS 

ID  -  ID  UNDER  WHICH  THE  PROCEDURE  FILE  IS  CATALOGED 

(PFN  IS  ' PROCFILS'  > 

OUTPUT  *  L I  STABLE  OUTPUT 

LEFT  -  OMITTED  -  PRINT  LEFT  -  JUST  I F I  ED  ON  PAGE 
NON-BLANK  -  PRINT  CENTERED  ON  WIDE  PAGE 
PW1-PW5  -  PASSWORDS 

DEFAULT  BEGIN  statement 

no  meaningful  default  values 

MAX  FL:  36000B 
REMARKS 

A  BANNER  PAGE  PRECEDES  THE  LIST  AND  CONTAINS  THE  WORD 
'PROCFILS'  AND  THE  SPECIFIED  ID.  A  BANNER  PAGE  WITH  THE 
WORD  'END'  FOLLOWS  THE  LIST. 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892 . 2 
DATE  WRITTEN:  06/02/76 
DATE i S  *  REVISED 

02/10/77  -  ADD  PARAMETER  'LEFT' 

03/01/78  -  CONVERT  TO  CCL:  ADD  5  PASSWORDS 


r*  c  /n*  /  •?  c 
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PROCEDURE  'PRODELE' 


PURPOSE 

DELETE  ONE  PROCEDURE  FROM  A  SEQUENTIAL  PROCEDURE  FILE 

FUNCTIONAL  CATEGORIES:  Q7 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN. PRODELE. , I D . PROCED . AC . PW 1 . PK2 , PW3 , PW4 , PW5 . 
DESCRIPTION  OF  PARAMETERS 

ID  -  ID  UNDER  WHICH  PROCEDURE  FILE  IS  CATALOGED 

<  PFN  IS  ' PROCFILS'  1 
PROCED  -  PROCEDURE  TO  BE  DELETED 
AC  -  AC  FOR  CATALOG  < MAY  BE  OMITTED! 

PW1-PW5  -  PASSWORDS 


DEFAULT  BEGIN  STATEMENT 
NO  MEANINGFUL  DEFAULT 

MAX  FL :  36000B 


UES 


REMARKS 

PROCEDURE  FILE  IS  A  SEQUENTIAL  FILE  OF  NAMED  PROCEDUR 
ARRANGED  IN  ALPHABET  I C-L  ORDER.  EACH  PROCEDURE  CDNSI 
ONE  AND  ONLY  ONE  SYSTEM  LOGICAL  RECORD. 

ALL  EMPTY  RECORDS  ARE  REMOVED. 

THE  LOWEST  CYCLE  IS  PURGED.  IF  POSSIBLE.  AT  LEAST  2 
CYCLES  ARE  ALWAYS  RETAINED. 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 
DATE  WRITTEN:  05/28/76 
DATE ! S )  REVISED 

03/01/78  -  CONVERT  TO  CCL :  INCREASE  TO  5  PASSWORDS 


I  v  ; 
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PROCEDURE  ' PRODOC' 


PURPOSE 

LIST  DOCUMENTATION  FOR  PROCEDURES  PROADD,  PROALL, 
PRODOC,  PROGET,  PROHDR.  PROLIST,  PRONAM,  PROREPL , 


PRODELE, 

PROS2R 


FUNCTIONAL  CATEGORIES:  01 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 


USAGE 

BEGIN, PRODOC, .OUTPUT , LEFT . 


DESCRIPTION  OF  PARAMETERS 
OUTPUT  -  LISTABLE  OUTPUT 
LEFT  -  OMITTED  -  PRINT 
NON- BLANK  -  PRINT 


LEFT-JUSTIFIED  ON  PAGE 
CENTERED  ON  WIDE  PAGE 


DEFAULT  BEGIN  STATEMENT 
BEGIN. PRODOC, .OUTPUT. 

MAX  FL:  25000B 


REMARKS 

A  BANNER  PAGE  PRECEDES  THE  LIS 
'PRODOC'.  A  BANNER  PAGE  WITH 


T  AND  CONTAINS  THE  WORD 
THE  WORD  'END'  FOLLOWS 


THE 


LIST. 


AUTHOR 

DAVID  V  SOMMER  -  D1NSRDC  CODE  *.892.2 
DATE  WRITTEN:  06/02/76 
DATE ( S I  REVISED 

02/10/77  -  ADD  PARAMETER  'LEFT' 

03/01/78  -  CONVERT  TO  CCL ;  ADD  PR0S2R  DOCUMENT 
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PROCEDURE  'PROGET' 


PURPOSE 

GET  (EXTRACT)  ONE  PROCEDURE  FROM  A  SEQUENTIAL  PROCEDURE  FILE 

FUNCTIONAL  CATEGORIES:  Q7 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN. PROGET, , ID , PROCED . LFN , PW1 . PW2 , PW3 . PW4 , PW5 . 

DESCRIPTION  OF  PARAMETERS 

ID  -  ID  UNDER  WHICH  PROCEDURE  FILE  IS  CATALOGED 

i PFN  IS  ' PROCFILS'  I 
PROCED  -  NAME  OF  DESIRED  PROCEDURE 
LFN  -  NAME  OF  FILE  TO  CONTAIN  'PROCED' 

PW1-PW5  -  PASSWORDS 


DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 


MAX  FL: 


>ooc 


REMARKS 

PROCEDURE  FILE  IS  A  SEQUENTIAL  FILE  OF  NAMED  PROCEDURES 
ARRANGED  IN  ALPHABETICAL  ORDER.  EACH  PROCEDURE  CONSISTS  OF 
ONE  AND  ONLY  ONE  5YSTEM  LOGICAL  RECORD. 


AUTHOR 

DAVID  \  SOMMER  -  DTNSRDC  CODE  18S2.2 


DATE  WRITTEN:  05/28/76 


DATE; S'  REVISED 

02/04 7 77  -  ADD  PW1  AND  PW2 
03/01/78  -  CONVERT  TO  CCL; 


INCREASE  TO  5  PASSWORDS 
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PROCEDURE  'PROGRAM' 

PURPOSE 

EXECUTE  A  CATALOGED  PROGRAM  {NOT  IN  A  LIBRARY) 

FUNCTIONAL  CATEGORIES:  LO  Q3 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, PROGRAM, . PFN, ID, PARAMS. 

DESCRIPTION  OF  PARAMETERS 

PFN  -  PERMANENT  FILE  NAME  OF  THE  PROGRAM 
ID  -  ID  UNDER  WHICH  IT  IS  CATALOGED 

{DEFAULT:  SYSTEM  PUBLIC  ACCESS  ID) 

PARAMS  -  UP  TG  18  PARAMETERS  FOR  THE  PROGRAM 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL:  DEPENDS  UPON  PROGRAM  BEING  EXECUTED 

REMARKS 

< P F N >  IS  ATTACHED  WITH  L?N  ' 2ZZPR0G'  AND  IS  RETURNED  AT  THE 
END  OF  THE  PROCEDURE. 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1832. 2 
DATE  WRITTEN:  DS/ 14/76 
DATE ( S I  REVISED 

03/01/78  -  CONVERT  TO  CCL :  ADD  5  PASSWORDS 
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PROCEDURE  ' PROHDR' 


PURPOSE 

LIST  PROCEDURE  HEADERS  IN  A  PROCEDURE  FILE 

FUNCTIONAL  CATEGORIES:  Q7 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 


USAGE 

BEGIN . PROHDR .. ID , OUTPUT , PW1 , PW2 . PW3 . PW4 , PW5 . 
DESCRIPTION  OF  PARAMETERS 

ID  -  ID  UNDER  WHICH  PROCEDURE  FILE  IS  CATALOGED 

4  PFN  IS  '  PRQCFILS'  i 
OUTPUT  -  LI  STABLE  OUTPUT 
PW1-PW5  -  PASSWORDS 


BEGIN  ST 
ANINGFUL 


ATE  ME  NT 


n?<; 


160005 


REMARKS 

PROCEDURE  FILE  IS  A  SEQUENTIAL  FILE  OF  NAMED  PROCEDUR 
ARRANGED  IN  ALPHABETICAL  ORDER.  EACH  PROCEDURE  CONS1 
ONE  AND  ONLY  ONE  SYSTEM  LOGICAL  RECORD. 

ALL  EMPTY  RECORDS  ARE  FLAGGED  IN  THE  LIST. 


A'JT  HOR 

DAviD  V  SUMMER  -  DTNSRDC  CODE  1892.2 
DATE  WRITTEN:  05/28/76 


V 


(S'  REVISED 
'01/78  -  CONVER' 


ADD  5- PASSWORDS 
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PROCEDURE  ' PRONAM' 


PURPOSE 

LIST  NAMES  OF  PROCEDURES  IN  A  SEQUENTIAL  PROCEDURE  FILE 

FUNCTIONAL  CATEGORIES:  Q7 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, PRONAM, , ID. OUTPUT , FULL , PW1 , PW2 , PW3, PW4 . PW5. 
DESCRIPTION  OF  PARAMETERS 

ID  -  ID  UNDER  WHICH  PROCEDURE  FILE  IS  CATALOGED 

( PFN  IS  ' PROCFILS'  ) 

OUTPUT  -  L 1  STABLE  OUTPUT 

FULL  -  IF  OMITTED.  A  FULL  LIST  WITH  HEADINGS  IS  PRINTED. 

IF  ANYTHING  IS  SPECIFIED,  A  QUICK,  SINGLE-COLUMN 
LIST.  WITHOUT  HEADINGS.  IS  PROVIDED.  THIS  MAY  EE 
MORE  USEFUL  AT  AN  INTERACTIVE  TERMINAL. 

PW1-PW5  -  PASSWORDS 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL:  36000E 

REMARKS 

PROCEDURE  FILE  IS  A  SEQUENTIAL  FILE  OF  NAMED  PROCEDURES 
ARRANGED  IN  ALPHABETICAL  ORDER.  EACH  PROCEDURE  CONSISTS  OF 
ONE  AND  ONLY  ONE  SYSTEM  LOGICAL  RECORD. 

ALL  EMPTY  RECORDS  ARE  FLAGGED  IN  THE  LIST. 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 
DATE  WRITTEN:  05/28/76 
DATE ! S )  REVISED 

03/01/78  -  CONVERT  TO  CCL:  ADD  5  PASSWORDS 
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PROCEDURE  ' PROREPL' 

PURPOSE 

REPLACE  ONE  PROCEDURE  IN  A  SEQUENTIAL  PROCEDURE  FILE 

FUNCTIONAL  CATEGORIES:  Q7 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN. PROREPL, . ID , NEW, AC , PW1 , PW2 , PW3 , PW4 , PW5 . 

DESCRIPTION  OF  PARAMETERS 

ID  -  ID  UNDER  WHICH  PROCEDURE  FILE  IS  CATALOGED 

! PFN  IS  ' PROCFILS' ! 

NEW  -  FILE  CONTAINING  NEW  NAMED  PROCEDURE 
(MAY  NOT  BE  FILE  ' INPUT'  ! 

AC  -  AC  FOR  CATALOG  (MAY  BE  OMITTED) 

PW1-PW5  -  PASSWORDS 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL:  36000E 

REMARKS 

PROCEDURE  FILE  IS  A  SEQUENTIAL  FILE  OF  NAMED  PROCEDURES 
ARRANGED  IN  ALPHABETICAL  ORDER.  EACH  PROCEDURE  CONSISTS  OF 
ONE  AND  ONLY  ONE  SYSTEM  LOGICAL  RECORD. 

ALL  EMPTY  RECORDS  ARE  REMOVED. 

THE  LOWEST  CYCLE  IS  PURGED,  IF  POSSIBLE.  AT  LEAST  2 
CYCLES  ARE  ALWAYS  RETAINED. 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 
DATE  WRITTEN:  05/28/76 
DATE (Si  REVISED 

03/01/78  -  CONVERT  TO  CCL;  INCREASE  TO  5  PASSWORDS 
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PROCEDURE  ' PR0S2R' 


PURPOSE 

CONVERT  SEQUENTIAL  PROCEDURE  FILE  TO  RANDOM  EDITLIB  USER 

LIBRARY 

FUNCTIONAL  CATEGORIES:  K3  Q7 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN .  PROS2R  .  .  I DS ,  IDR  ,  AC  ,  PW1  ,.PW2  ,  PW3 ,  PW4 ,  PW5 . 

DESCRIPTION  OF  PARAMETERS 

IDS  -  ID  UNDER  WHICH  SEQUENTIAL  FILE  'PROCF1LS'  IS 
CATALOGED 

IDR  -  ID  UNDER  WHICH  RANDOM  FILE  'PROCFIL'  IS  TO  BE 
CATALOGED 

AC  -  JOB  ORDER  NUMBER  FOR  CATALOG 

•MAY  BE  OMITTED) 

PW1-PW5  -  PASSWORDS  FOR  RANDOM  FILE 

(WILL  HAVE  EFFECT  ONLY  IF  AT  LEAST  ONE  CYCLE  OF 
RANDOM  FILE  'PROCFIL'  EXISTS  BEFORE  PR0S2R  IS 
EXECUTED! 


DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 


MAX  FL: 

REMARKS 

PFN  OF  SEQUENTIAL  FILE  MUST  BE  ' PROCFILS' . 

PFN  OF  RANDOM  FILE  WILL  BE  'PROCFIL'-. 

LOWEST  CYCLE  OF  'PROCFIL'  WILL  BE  PURGED.  IF  POSSIBLE. 
AT  LEAST  2  CYCLES  WILL  ALWAYS  BE  RETAINED. 


AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 
DATE  WRITTEN:  03/27/78 


DATEiS-  REVISED 


B 
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PROCEDURE  ' PURGALL' 


PURPOSE 

PURGE  PERMANENT  FILES  OF  SPECIFIED  AC  AND  ID  (PUBLIC  FILES 
OR  ON  A  USER  DEVICE  SET) 

FUNCTIONAL  CATEGORIES:  Q4 

COMPUTER 
CDC  6000 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, PURGALL , , JOBORDER , ID , OUTPUT . PW 1 , PW2 , PW3 . PW4 , PW5 , SN . 

DESCRIPTION  OF  PARAMETERS 

JOBORDER  -  JOB  ORDER  NUMBER  (MUST  BE  SPECIFIED) 

ID  -  ID  OF  FILES  TO  BE  PURGED  (MUST  BE  SPECIFIED) 

OUTPUT  -  LISTABLE  OUTPUT 

PW1-PW5  -  UP  TO  5  PASSWORDS  FOR  ALL  FILES  TO  BE  PURGED 
(ONLY  TK.  RD  AND  CN  PASSWORDS  ARE  REQUIRED) 

SN  -  SETNAME.  ONE  OF: 

OMITTED  -  PUBLIC  PERMANENT  FILES 
OTHER  -  SETNAME  OF  A  USER  DEVICE  SET 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL:  350006 

REMARKS 

1)  PROCEDURE  WILL  AUDIT  SPECIFIED  ID  AND  JOBORDER.  ALL 
THESE  FILES  WILL  BE  PURGED. 

2 1  INVALID  TK,  RD.  CN  PASSWORDS  WILL  ABORT  THE  PROCEDURE. 

3!  CHARGE  ID  OR  ACCESS  NUMBER  MUST  CORRESPOND  TO  ID  AND 
AC  BEING  PURGED. 

4)  THE  USER  MUST  SUPPLY  THE  MOUNT  CARD  WHEN  PURGING  ON  A 
USER  DEVICE  SET. 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 
SHARON  GOOD  -  DTNSRDC  CODE  1892.1 

DATE  WRITTEN:  03/15/79 

DATE C SI  REVISED 

06/16/80  -  ADD  SN  PARAMETER 


81 
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PROCEDURE  'PURGEN' 

PURPOSE 

GENERATE  PROCEDURE  'PUR'  TO  PURGE  SEVERAL  FILES  WITH  COMMON 
KERNEL 

FUNCTIONAL  CATEGORIES:  Q4 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 


USAGE 


BEGIN . PURGEN , . KERNEL . ID . PW 1 . PW2 , PW3 , PW4 , PW5 , UV , SN . 


DESCRIPTION  OF  PARAMETERS 

KERNEL  -  FIRST  N  CHARACTERS  OF  PERM  FILE  NAME 
(COULD  BE  EMPTY! 

ID  -  ID  OF  FILES  TO  BE  PURGED 

PW1-PW5  -  UF  TO  5  PASSWORDS  FOR  ALL  FILES  TO  BE  PURGED 

•ONLY  TK  AND  CN  PASSWORDS  ARE  REQUIRED) 

UV  -  UNIVERSAL  PURGE  PASSWORD  IF  REQUIRED 

SN  -  SETNAME  1  ONLY  IF  OTHER  THAN  SYSSET  I 


FAULT  BEGIN  STATEMENT 
NO  MEANINGFUL  DEFAULT 


MAX  FL:  35QC0B 


REMARKS 

11  GENERATES  PROCEDURE  PUR  TO  BE  USED  FOR  PURGING  SEVERAL 
FILES  OF  SAME  ID  AND  PASSWORDS.  ALLOW5  COMMON  KERNEL  FOR 
START  OF  PERM  FILE  NAMES.  WILL  ATTEMPT  TO  EXECUTE  'PUR' 
ONCE  Tu  PURGE  THE  KERNEL  FILE  NAME.  LOWEST  CYCLE. 

2)  USAGE  TO  PURGE  ADDITIONAL  FILES: 

PUR . <PART  >  .  . 


EXAMPLE 

DESIRE  TO  PURGE  A  SET  OF  FILES  INCLUDING:  CARR1ERDATA1 , 
CARRI ERDATA2 .  CARRIERPL.  CARRIER05J .  CARRIERSOR,  BELONGING 
TO  USER  ' CZZZ'  WITH  PASSWORD  ’FIR'  OR  'SEC'  OR  NO  PASSWORD. 

1 )  BEGIN, PURGEN. .CARRIER. CZZZ. FIR. SEC. 

WILL  ATTEMPT  TO  PURGE  THE  KERNEL  FILE  NAMED  CARRIER. 

2)  PUR.DATA1. 

PUR, DAT A2. 

PUR . PL . 

PUR. OBJ. 

PUR.SOR.  TO  PURGE  THE  ACTUAL  FILES 

AUT  H-TR 

SHARON  E  GOOD  -  DTNSRDC  CODE  1892.1 
DATE  WRITTEN:  OS/ 12/60 
DATE'S;  REVISED 

02/10/61  -  ADD  UV,  SN  PARAMETERS 
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PROCEDURE  '  RECADD1' 


PURPOSE 

ADD  ONE  OR  MORE  LOGICAL  RECORDS  TO  A  FILE 

FUNCTIONAL  CATEGORIES:  K1 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 


USAGE 

BEGIN, RECADD1 


.AFTER, NREC , NEW , PFN , 1 D , AC , Ptf 1 , PW2 , PW3 , PW4 , PW5 . 


DESCRIPTION  OF  PARAMETERS 

AFTER  -  RECORD  NUMBER  AFTER  WHICH  THE  NEW  RECORD (S)  ARE  TO 
BE  ADDED 

NREC  -  NUMBER  OF  NEW  LOGICAL  RECORDS  TO  BE  ADDED 


(DEFAULT:  1) 

NEW  -  LFN  OF  FILE  CONTAINING  NEW  RECORD(S) 
PFN  -  PERMANENT  FILE  NAME 
ID  -  ID  UNDER  WHICH  FILE  IS  CATALOGED 

AC  -  JOB  ORDER  NUMBER  FOR  NEW  CATALOG 


(MAY  BE  OMITTED) 


PW1-PW5  -  PASSWORDS 


DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL:  20000B 


REMARKS 

REPLACES  PROCEDURE  RECADD. 

THE  LOWEST  CYCLE  OF  FILE  IS 
CYCLES  ARE  ALWAYS  RETAINED. 


PURGED.  IF  POSSIBLE.  AT  LEAST  2 


AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 
DATE  WRITTEN:  04/28/78 
DATE ( S)  REVISED 


PROCEDURE  '  RECDELT 


|  PURPOSE 

W  DELETE  ONE  OR  MORE  LOGICAL  RECORDS  FROM  A  FILE 

FUNCTIONAL  CATEGORIES:  K1 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, RECDEL1, .REC.NREC.PFN, ID.AC.PW1 .PW2.PW3.PW4.PW5. 
DESCRIPTION  OF  PARAMETERS 

REC  -  RECORD  NUMBER  OF  F IRST/DNLY  LOCIGAL  RECORD  TO  BE 
DELETED 

NR EC  -  NUMBER  OF  LOGICAL  RECORDS  TO  BE  DELETED 
(DEFAULT:  1) 

PFN  -  PERMANENT  FILE  NAME 
ID  -  ID  UNDER  WHICH  FILE  IS  CATALOGED 

AC  -  JOB  ORDER  NUMBER  FOR  NEW  CATALOG 

(MAY  BE  OMITTED  I 
PW1-PW5  -  PASSWORDS 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL:  20000B 

(  REMARKS 

REPLACES  PROCEDURE  RECDELE . 

THE  LOWEST  CYCLE  OF  FILE  IS  PURGED.  IF  POSSIBLE.  AT  LEAST  2 
CYCLES  ARE  ALWAYS  RETAINED. 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1882.2 
DATE  WRITTEN:  04/28/78 
DATE (S)  REVISED 


» 
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PROCEDURE  'RECDOC' 

PURPOSE 

LIST  DOCUMENTATION  FOR  PROCEDURES  RECADDl,  RECDEL1,  RECDOC 
RECGET1,  RECREP1 

FUNCTIONAL  CATEGORIES:  01 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, RECDOC, .OUTPUT, LEFT. 

DESCRIPTION  OF  PARAMETERS 
OUTPUT  -  LI  STABLE  OUTPUT 

LEFT  -  OMITTED  -  PRINT  LEFT- JUSTIFIED  ON  PAGE 
NON-BLANK  -  PRINT  CENTERED  ON  WIDE  PAGE 

DEFAULT  BEGIN  STATEMENT 
BEGIN. RECDOC. .OUTPUT . 

MA\  FL:  25000E 

REMARKS 

A  BANNER  PAGE  PRECEDES  THE  LIST  AND  CONTAINS  THE  WORD 
'RECDOC".  A  BANNER  PAGE  WITH  THE  WORD  'END'  FOLLOWS  THE 
LIST. 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 
DATE  WRITTEN:  02/10/77 


DATE ($1  REVISED 

03/01/78  -  CONVERT  TO  CCL 


PROCEDURE  ' RECGET1' 

PURPOSE' 

EXTRACT  ONE  OR  MORE  LOGICAL  RECORDS  FROM  A  FILE 

FUNCTIONAL  CATEGORIES:  K1 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, RECGE T 1 f , REC , NREC, PFN . ID , PW1 , PW2 , PW3 , PW4 , PW5 . 
DESCRIPTION  OF  PARAMETERS 

REC  -  RECORD  NUMBER  OF  FIRST/ONLY  LOCIGAL  RECORD  TO  B 
EXTRACTED 

NREC  -  NUMBER  OF  LOGICAL  RECORDS  TO  BE  EXTRACTED 
i DEFAULT :  1 1 

PFN  -  PERMANENT  FILE  NAME 
ID  -  ID  UNDER  WHICH  FILE  IS  CATALOGED 

PW1-PW5  -  PASSWORDS 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL:  200  I  OB 

REMARKS 

REPLACES  PROCEDURE  RECGE! . 

THE  EXTRACTED  RECORDS S »  WILL  BE  ON  A  FILE  WITH  LFN  OF  R 

FOLLOWED  BY  THE  VaLUE  OF  REC  !£.G.,  BEGIN, RECGE T , ,8 . 

WILL  CREATE  FILE  R8,  THIS  FILE  MAY  BE  CATALOGED.  IT  IS  NO 
REWOUND  AT  THE  END  OF  THE  PROCEDURE. 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 
DATE  WRITTEN:  04/28/78 
DATEfSI  REVISED 
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PROCEDURE  '  RECREP1* 


PURPOSE 

REPLACE  ONE  OR  MORE  LOGICAL  RECORDS  IN  A  FILE 

FUNCTIONAL  CATEGORIES:  K1 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN , RECRE  P 1 , , REC . NREC , NEW, PFN, ID, AC, PW1 , PW2 , PW3 , PW4 , PW5 . 
DESCRIPTION  OF  PARAMETERS 

REC  -  RECORD  NUMBER  OF  FIRST/ONLY  LOCIGAL  RECORD  TO  BE 
REPLACED 

NREC  -  NUMBER  OF  LOGICAL  RECORDS  TO  BE  REPLACED 
(DEFAULT:  1 

NEW  -  LFN  OF  FILE  CONTAINING  HEW  RECORD (S? 

PFN  -  PERMANENT  FILE  NAME 
ID  -  ID  UNDER  WHICH  FILE  IS  CATALOGED 

AC  -  JOB  ORDER  NUMBER  FOR  NEW  CATALOG 

{MAY  BE  OMITTED) 

P5M-PW5  -  PASSWORDS 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 


MAX  FL:  20000B 
REMARKS 

REPLACES  PROCEDURE  RECREPL. 

THE  LOWEST  CYCLE  OF  FILE  IS 
CYCLES  ARE  ALWAYS  RETAINED. 


PURGED.  IF  POSSIBLE.  AT  LEAST 


AUTHOR 

DAVID  V  SOMMER 


DTNSRDC  CODE  1B92.2 


DATE  WRITTEN:  04/28/78 


PROCEDURE  'RENAMAC' 

PURPOSE 

RENAME  AC  FIELD  ON  PERMANENT  FILES 

FUNCTIONAL  CATEGORIES:  Q4 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, RENAMAC , .OLD, NEW, ID, OUTPUT ,PW1 ,PW2, PW3 , PW4 . PW5 , SN 

DESCRIPTION  OF  PARAMETERS 

OLD  -  OLD  AC  l MUST  BE  SPECIFIED! 

NEW  -  NEW  AC  i MUST  BE  SPECIFIED! 

ID  -  ID  OF  FILES  TO  BE  RENAMED  MUST  BE  SPECIFIED) 


OLD 

-  OLD  AC 

NEW 

-  NEW  AC 

ID 

-  ID  OF  i 

OUTPUT 

-  LI  STAB! 

PW1-PW5 

-  tn  i 

<.*r  * « 

l  Ayt  v 

*  will.  * 

SN 

-  gpfwftyi 

l ONLY  TK.  RD  AND  CN  PASSWORDS  ARE  REQUIRED! 
SETNAME  .’DEFAULT:  SYSSETI 


DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL:  3S000B 

REMARKS 

~  1*»  PROCEDURE  WILL  AUDIT  SPECIFIED  ID  AND  OLD  AC.  ALL  T 
FILES  WILL  BE  RENAMED. 

2 1  MOST  PF  ATTACH  AND  RENAME  ERRORS  WILL  NOT  BE  FATAL, 
INVALID  TK,  RD  PASSWORDS  WILL  ABORT  THE  PROCEDURE. 

AUTHOR 

DAVID  V  SOMMER  -  D7NSRDC  CODE  1892,2 


DATE  WRITTEN:  0&/01/75 
DATE (S'  REVISED 

04/18/7?  -  MODIFY  FOR  NOS/BE  SHORT  AUDIT 
OS/ 30/77  -  ADD  type  PARAMETER 
03/01/78  -  CONVERT  TO  CCL 


11/02/78 
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RfittETt 


huvCI/UHa  a  §  a. 

Ann  cw 


PROCEDURE  'RUNBAS' 


PURPOSE 

COMPILE  AND  EXECUTE  BASIC  PROGRAM  (SIMILAR  TO  EDITOR  RUN, BAS 
FOP.  USE  OUTSIDE  OF  EDITOR) 


FUNCTIONAL  CATEGORIES:  L2 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 


USAGE 

BEGIN. RUNBAS,. F, OUT. 


DESCRIPTION  OF  PARAMETERS 

F  -  INPUT  SOURCE  FILE  (REWOUND  BEFORE  COMPILES 
OUT  -  LI  STABLE  OUTPUT  (NOT  REWOUND ) 

■IF  OUTsO,  NO  LIST  IS  PROVIDED.  ERROR  MESSAGES  PRINT 
AT  TERMINAL » 


•»fc-  f*  i  in-  I  ! .  »-  -  *  S  B 

»*  *  n  w  *  *  o  **  *  .  -  i 

-  NO  DEFAl 


*  * 


MAX  FL:  40000B 


REMARKS 

INPUT  AND  OUTPUT  ARE  CONNECTED  BEFORE  THE  BASIC  COMPILER 
IS  CALLED. 


ERROR  MESSAGES 
HO  INPUT  FILE. 

USER  DID  HOT  SPECIFY  AN  INPUT  FILE  I  PARAMETER  ' F'  ) 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 
DATE  WRITTEN:  OB/25/77 


DATE* S!  REVISED 

0- '01/78  ~  rn^v^R^  tn 
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PROCEDURE  '  RUNFTN' 


02/02 ' 


PURPOSE 

COMPILE  AND  EXECUTE  FTN  PROGRAM  (SIMILAR  TO  EDITOR  RUN , FTN 
FOR  USE  OUTSIDE  OF  EDITOR) 

FUNCTIONAL  CATEGORIES:  L2 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, RUNFTN, ,F,LGO. 

DESCRIPTION  OF  PARAMETERS 

F  -  FILE  TO  BE  COMPILED 

(MUST  BE  SPECIFIED  -  AVOID  LFN  'INPUT') 

LGO  -  FILE  TO  CONTAIN  RELOCATABLE  OBJECT  MODULE 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL:  THAT  OF  THE  CU^  >*  **  T  FTN  COMPILER 

REMARKS 

AFTER  COMPLETION,  INPUT  AND  OUTPUT  ARE  CONNECTED. 

ERROR  MESSAGES 
NO  INPUT  FILE. 

USER  DID  NOT  SPECIFY  AN  INPIT  FILE  ! PARAMETER  'F'l 


AUTHOR 

SHARON  E  GOOD  -  DTNSRDC  CODE  1892.1 
DATE  WRITTEN:  07/27/77 


DATE ( S S  REVISED 

03/01/78  -  CONVERT  TO  CCL 
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PROCEDURE  ' RUNMNF' 


PURPOSE 

COMP  I LE  AND  EXECUTE  MNF  PROGRAM  UNDER  INTERCOM 

FUNCTIONAL  CATEGORIES:  L2 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, RUNMNF, ,F. 

DESCRIPTION  OF  PARAMETER 

F  -  FILE  TO  BE  COMPILED 

(MUST  BE  SPECIFIED  -  AVOID  LFN  'INPUT'  ) 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL:  53000B  MINIMUM  (NO  EFL  NEEDED' 

REMARKS 

BEFORE  USING  RUNMNF,  ATTACH  OR  CREATE  A  SOURCE  INPUT  FILE 
'  F'  (NETED  OR  EDITOR  MaT  BE  USED  TO  CREATE  IT). 

'F'  IS  REWOUND  BY  THE  PROCEDURE  BEFORE  COMPILATION. 

INPUT  AND  OUTPUT  ARE  AUTOMATICALLY  CONNECTED  WHEN  EXECUTION 
BEGINS.  AFTER  COMPLETION,  INPUT  AND  OUTPUT  REMAIN 
CONNECTED. 

TO  RE-EXECUTE  PROGRAM  '  F'  ,  DO  ANOTHER  BEGIN, RUNMNF . 

ERROR  MESSAGES 
NO  INPUT  FILE. 

USER  DID  NOT  SPECIFY  AN  INPUT  FILE  t  PARAMETER  ' F'  i 


AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 

DATE  WRITTEN:  07/29/77 

DATE ( S)  REVISED 
08/24/77 
09/24/77 

03/01/78  -  CONVERT  TO  CCL 
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PROCEDURE  'RUNPAS' 


10/31/ 


PURPOSE 

COMPILE  AND  EXECUTE  PASCAL  PROGRAM  UNDER  INTERCOM 

FUNCTIONAL  CATEGORIES:  L2 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, RUNPAS, .F.OUT. 

DESCRIPTION  OF  PARAMETERS 

F  -  FILE  TO  BE  COMPILED 

s  MUST  BE  SPECIFIED  -  AVOID  LFN  'INPUT') 
OUT  -  FILE  TO  CONTAIN  COMPILATION  LISTING 
‘RETAINED  ONLY  IF  COMPILATION  FAILS) 


DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL: 

REMARKS 

BEFORE  USING  RUNPAS.  ATTACH  OR  CREATE  A  SOURCE  INPUT  FILE 
' F'  1NETED  OR  EDITOR  MAY  BE  USED  TO  CREATE  IT). 

'  F'  IS  REWOUND  B)  THE  PROCEDURE  BEFORE  COMPILATION. 

TO  RE-EXECUTE  PROGRAM  '  F*  .  TYPE  '  LGO'  . 

ERROR  MESSAGES 

FILE  <OUT>  HAS  THE  COMPILATION  LISTING 

COMPILATION  FAILED.  USE  NETED  OR  EDITOR  OR  ROUTE  TO  A 
PRINTER  TO  FIND  THE  ERRORS. 


NO  INPUT  FILE. 

USER  DID  NOT  SPECIFY  AN  INPUT  FILE  (PARAMETER  'F'l 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 
DATE  WRITTEN:  1979 
DATE'S)  REVISED 
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PROCEDURE  ' RUNSEQ' 


02/24/8 


PURPOSE 

COMPILE  AND  EXECUTE  FTN.SEQ  PROGRAM  (USES  TS  OPTION! 

FUNCTIONAL  CATEGORIES:  L2 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, RUNSEQ, ,F,LGO. 

DESCRIPTION  OF  PARAMETERS 

F  -  FILE  TO  BE  COMPILED 

(MUST  BE  SPECIFIED  ‘  AVOID  LFN  'INPUT'! 

LGO  -  FILE  TO  CONTAIN  RELOCATABLE  OBJECT  MODULE 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL:  THAT  OF  THE  CURRENT  FTN  COMPILER 


REMARKS 

THIS  PROCEDURE  IS  FOR  FORTRAN  SOURCE  PROGRAMS  IN  SEQUENCED 
7!ODE . 


FOR  TS  OPTION  FOR  STANDARD  FORMATTED  FTN  SOURCE  CODE,  USE 
' RUNTS' . 


AFTER  COMPLETION,  INPUT  AND  OUTPUT  ARE  CONNECTED. 

ERROR  MESSAGES 
NO  INPUT  FILE. 

USER  DID  NOT  SPECIFY  AN  INPUT  FILE  (PARAMETER  ' F'  » 

AUTHOR 

SHARON  E  GOOD  -  DTNSRDC  CODE  1892.1 

DATE  WRITTEN:  07/27/77 

DATE ( S !  REVISED 

03/01/78  -  CONVERT  TO  CCL 
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PROCEDURE  'RUNTS' 


PURPOSE 

COMPILE  AND  EXECUTE  FTN.TS  PROGRAM 

FUNCTIONAL  CATEGORIES:  L2 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, RUNTS, ,F,LGO. 

DESCRIPTION  OF  PARAMETERS 

F  -  FILE  TO  BE  COMPILED 

(MUST  BE  SPECIFIED  -  AVOID  LFN  'INPUT') 

LGO  -  FILE  TO  CONTAIN  RELOCATABLE  OBJECT  MODULE 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL:  THAT  OF  THE  CURRENT  FTN  COMPILER 

REMARKS 

AFTER  COMPLETION.  INPUT  AND  OUTPUT  ARE  CONNECTED. 

ERROR  MESSAGES 
NO  INPUT  FILE. 

USER  DID  NOT  SPECIFY  AN  INPUT  FILE  (PARAMETER  ' F' ) 


AUTHOR 

SHARON  E  GOOD  -  OTNSRDC  CODE  1892.1 
DATE  WRITTEN:  07/27/77 


DATE ( S )  REVISED 

03/01/78  -  CONVERT  TO  CCL 


PROCEDURE  ' SEGLD' 

PURPOSE 

CREATE  A  SEGLOAD  ABSOLUTE  FILE 

FUNCTIONAL  CATEGORIES:  LO  Q3 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, SEGLD, . SEGDIR , LGO , ABS. 

DESCRIPTION  OF  PARAMETERS 

SEGDIR  -  FILE  CONTAINING  SEGLOAD  DIRECTIVES 
(REWOUND  BEFORE  USE) 

LGO  -  RELOCATABLE  OBJECT  FILE 

ABS  -  ABSOLUTE  OBJECT  FILE 

(MAY  BE  CATALOGED) 

DEFAULT  BEGIN  STATEMENT 

BEGIN. SEGLD. , SEGDIR . LGO , ABS. 

MAX  FL:  DEPENDS  UPON  PROGRAM  BEING  LOADED 

REMARKS 

NONE 

AUTHOR 

SHARON  E  GOOD  -  DTNSRDC  CODE  1892.1 

DATE  WRITTEN:  01/16/78 

DATE i S 1  REVISED 

03/01/78  -  CONVERT  TO  CCL 


o 


05/01/78 
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PROCEDURE  'SELDUMP' 


PURPOSE 

CREATE  BACKUP  DUMP  TAPE  OF  THE  USER  PERMANENT  FILES  OF  AN 
ACCOUNT  NUMBER 

FUNCTIONAL  CATEGORIES:  Q4  K3 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 


USAGE 

BEGIN, SELDUMP . . AC , VSN 1 , VSN2 . VSN3 . VSN4 , SN , D . PW . 


DESCRIPTION  OF 


AC 

-  MUST 

VSN1 

-  TAPE 

.  (6  C 

VSN2 

-  EXTE 

« SLO 

VSN3/4 

-  SAME 

SN 

-  SET 

r» 

u 

*  TALE 

nimi 

-  READ 

CHARGE 


PARAMETERS 

CORRESPOND  TO  ACCESS  NUMBER  ON 
DIEBOLD  OR  SLOT  NUMBER 
HARACTERS  OR  LESS) 

RNAL  STICKER  LABEL 
T  TAPES  ONLY) 

AS  VSNl/2  FOR  SECOND  TAPE 
NAME  i DEFAULT:  SYSSET i 
DENSITY  (DEFAULT  :  HY  -7  7 RK l 
PASSWORD  (DEFAULT  :  PUBLIC  PERM  fll 
VALUE  i 


CARD 


DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  ? L :  200006 

REMARK ^ 

UUTPUT  IS  MINI  AUDIT  LISTING  PF  NAME.  CYCLE,  ID  FOR  EACH 
FILE  AND  VSN  OF  TAPE  ON  WHICH  IT  WAS  DUMPED. 

ERROR  MESSAGES 

•DIFFERENT  DUMP  TYPE  OR  MODE  RUNNING* 

ONLY  ONE  DUMP  PROGRAM  MAY  RUN  AT  A  TIME  AND  ANOTHER  JOB 
IS  RUNNING  ONE.  WAIT  AWHILE  AND  RE-SUBMIT  THE  JOB. 

EXAMPLE 

XXXXYYY.MT  1 .  OR  XXXXYYY  ,NT  1 _ _ 

CHARGE, XXXX.ZZZ2299999 .  <<  ACCESS  #  FOR  1234567890 

BEGIN. SELDUMP. . 1234567890. CA9999. 

677/8/9  EDI 


AUTHOR 

SHARON  E  GOOD  -  DTNSRDC  CODE  1892.1 

DATE  WRITTEN:  EARLY  1975 

DATE ! S 5  REVISED 

03/01/78  -  CONVERT  TO  CCL 
03/23/80  -  ADD  VSN 3  AND  VSN4 
02/24/81  -  ADD  SN.  D.  PW  -  SEG 


02/24/61 
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PROCEDURE  'SELLOAD' 

PURPOSE 

RESTORE  SELECTED  ROUTINES  FROM  A  BACKUP  DUMPF  TAPE 

FUNCTIONAL  CATEGORIES:  Q4  K4 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 


USAGE 

BEGIN , SELLOAD , , VSN1 , VSN2 , V , VSN3 , VSN4 , SN , E ,D , PW. 
DESCRIPTION  OF  PARAMETERS 


VSN1 

-  TAPE  DIEBOLD  OR  SLOT  NUMBER  (FIRST  OR  ONLY  TAPE 

(6  CHARACTERS  OR  LESS) 

VSN2 

-  EXTERNAL  STICKER  LABEL  (FIRST  OR  ONLY  TAPE) 

V 

(SLOT  TAPES  ONLY) 

-  REEL  NUMBER  IN  MULTI-REEL  FILE 

(DEFAULT:  1! 

VSN3 

-  TAPE  DIEBOLD  OR  SLOT  NUMBER  (SECOND 

TAPE) 

(6  CHARACTERS  OR  LESS) 

VSN4 

-  EXTERNAL  STICKER  LABEL  (SECOND  TAPE 

i 

(SLOT  TAPES  ONLY) 

SN 

-  SET  NAME  (DEFAULTS  TO  PUBLIC  PERM  FILE  SET) 

E 

-  EDITION  NUMBER  OF  TAPE 

(DEFAULTS  TO  00  -  LEVEL  508) 

D 

-  TAPE  DENSITY  (DEFAULT:  HY  (7-TRACK. 

800  BPI ) ) 

PW 

-  EXTEND  PASSWORD 

(DEFAULTS  TO  PUBLIC  PERM  FILE  SET  VALUE) 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL:  20000B 

REMARKS 

NONE 


DATA  CARDS 

"  ONE  CARD  PER  FILE,  CONTAINING  ONE  OF  THE  FOLLOWING: 
PFsPFNAME . ID=XXXX.CYsNN.  TO  RESTORE  CYCLE  NN 


PF=PFNAME , ID=XXXX . 
ID-XXXX . 

EXAMPLE 

XXXXYYY.MT1  ...  OR 
CHARGE , XXXX , ZZZZ Z99999 . 
BEGIN, SELLOAD, .CA9999. 

'  7/8/9  EOR 

PF=PFN1 , IDsXXXX. 
PF=PFN2, ID=XXXX,CY=4. 

"  6/7/8  9  E01 


TO  RESTORE  ALL  CYCLES 
ALL  FILES  OF  USER  XXXX 


XXXXYYY , NT1 _ _ 


ALL  CYCLES 
ONLY  CYCLE  4 


81 
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PROCEDURE  'SEND' 


PURPOSE 

SEND  MESSAGES  TO  AN  INTERCOM  USER  WHO  IS  NOT  LOGGED  IN; 
LIST  MESSAGES 


FUNCTIONAL  CATEGORIES:  QO 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 


USAGE 

BEGIN, SEND, ,FCN,<PARAMETERS>. 


DESCRIPTION  OF  PARAMETERS 

FCN  -  ONE  OF  THE  FOLLOWING: 

A  OR  ANY  -  CHECK  FOR  ANY  MESSAGES 
C  OR  CREATE  *  CREATE  A  MAILBOX 
E  OR  EXPLAIN  -  TYPE  EXPLANATION  OF  PROCEDURE 
L  OR  LIST  -  LIST  CONTENTS  OF  MAILBOX 
S  OR  SEND  -  SEND  TO  ANOTHER  MAILBOX 
(DEFAULT ! 


<PARAMETERS> 


NOT  USED  BY  FUNCTIONS  ANY. 
OPTIONAL  FOR  LIST  AND  SEND 
DESCRIPTIONS  BELOWi 


CREATE  OR  EXPLA 
< SEE  FUNCTION 


IN 


DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL:  350006 


REMARKS 

IN  ORDER  TO  RECEIVE  MESSAGES,  THE  USER  MUST  HAVE  A 
PERMANENT  FILE  NAMED  'SENDFIL',  HAVING  NO  PASSWORDS. 


FUNCTIONS 

ANY 

BEGIN. SEND, .ANY. 

THIS  FUNCTION  CHECKS  .TO  SEE  IF  THERE  ARE  ANY  MESSAGES 


CREATE 

BEGIN, SEND, .CREATE. 

CREATE  A  PERMANENT  FILE  WITH  PFN  OF  'SENDFIL'. 

THIS  IS  REQUIRED  BEFORE  A  USER  CAN  RECEIVE  MESSAGES. 
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SEND 
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LIST 

BEGIN, SEND. .LIST.OUTPUT, 

LIST  ANY  MESSAGES  ON  FILE  'OUTPUT'  (PARAMETER  MAY  BE 
OMITTED.  IF  '  OUTPUT'  IS  NOT  CONNECTED,  THE  USER  IS 
INFORMED  THAT  THE  FILE  WAS  WRITTEN. 

IN  LISTING,  IF  THE  FIRST  CHARACTER  OF  A  LINE  IS  1, 
SPACE,  0.  -  OR  +.  IT  IS  TREATED  AS  CARRIAGE  CONTROL. 
ALL  OTHER  LINES  ARE  SHIFTED  ONE  PLACE  TO  THE  RIGHT 
BEFORE  LISTING. 

AFTER  LISTING,  THE  USER  IS  ASKED  WHETHER  THE  MESSAGES 
SHOULD  BE  SCRATCHED.  THE  USER  MUST  RESPOND  Y  OR  YES 
IFOR  YES  I  OR  ANYTHING  ELSE  (FOR  NO). 


SEND 

BEGIN . SEND . . SEND , TO . I NPUT . 

BEGIN. SEND. . .TO. INPUT. 

SEND  MESSAGES  TO  USER  'TO'  (4-CHARACTER  USER  ID  OR  U 
FOR  USERSERVlCi.  IF  OMITTED  OR  INVALID.  THE  USER  IS 
PROMPTED  FOR  A  4- CHARACTER  USER  ID  (MUST  START  WITH  A, 
C.  P,  R.  SI  OR  USERSERVIC  (MAY  BE  ABBREVIATED  U  OR 
USER! . 

IF  THE  NEXT  PARAMETER  i INPUT i  IS  OMITTED  (OR  'INPUT'). 
THE  MESSAGES  ARE  READ  FROM  THE  TERMINAL.  IF  THE 
PARAMETER  IS  GIVEN  AND  IS  NOT  'INPUT'.  THE  LOCAL  FILE 
OF  THAT  NAME  IS  REWOUND  AND  COPIED  THRU  END-OF- 
INFORMATION.  A  MESSAGE  IS  TYPED  STATING  THAT  THE  FILE 
IS  BEING  READ 

MESSAGES  ARE  UP  TO  BO  CHARACTERS  LONG;  THE  FIRST  OF 
WHICH  MAY  BE  USED  FDR  CARRIAGE  CONTROL. 


MESSAGES 

GENERAL 

INVALID  FUNCTION  -  MUST  BE  ONE  OF 
ANY  -  CREATE  -  EXPLAIN  -  LIST  -  SEND 

FIRST  PARAMETER  OF  EXECUTE  STATEMENT  WAS  INVALID 

FUNCTION  ANY-  - 

SOMEONE  IS  SENDING  YOU  A  MESSAGE 

CANNOT  ACCESS  YOUR  SENDFIL  UNTIL  SENDER  COMPLETES  THE 
MESSAGE 

UNEXPECTED  RETURN  CODE  (NNNB I  FROM  ATTACH 
PLEASE  TRY  AGAIN  LATER 

IF  SAME  ERROR  OCCURS  AGAIN,  SEE  CCRM.  3-7.  AND/OR  CALL 
USER  SERVICES 


YOU  DO  NOT  HAVE  A  SENDFIL 

TO  CREATE  ONE.  USE  BEGIN, SEND, .CREATE . 

YOU  HAVE  NO  MESSAGES 


YOL 


HAVE  SOME  MESSAGES 
0  LIST  THEM,  USE 


BEGIN. SEND. .LIST.OUTPUT. 


8 


SEND 


FUNCTION  CREATE-- 

CT  ID=  XXXX  PFNsSENDFIL 
CT  CY=  NNN  OOOOOOCO  PRUS  $0000.00  /DAY 
CREATE  WAS  SUCCESSFUL 

ERROR  DURING  CATALOG 
PLEASE  TRY  AGAIN  LATER 
COULD  NOT  CATALOG 

ERROR  TRYING  TO  GET  PF  SPACE 
PLEASE  TRY  AGAIN  LATER 

COULD  NOT  GET  PERMANENT  FILE  SPACE 

YOU  ALREADY  HAVE  A  SENDFlL 

CANNOT  CREATE  A  SECOND  SENDFlL 

FUNCTION  LIST-- 

EX  ID=  XXXX  PFNsSENDFIL 

EX  CY=  NNN  00000000  PRUS  S0000.00  /DAY 

SENDFlL  CONTENTS  WERE  SUCCESSFULLY  SCRATCHED 

MESSAGES  WRITTEN  ON  FILE  <LFN> 

OUTPUT  FILE  <LFN>  IS  NOT  CONNECTED  AND  CONTAINS 
LISTING  OF  MESSAGES. 

SHALL  I  SCRATCH  THE  MESSAGES  (Y  OR  N!  -- 
ENTER  Y  OR  YES  TO  CLEAR  THE  MESSAGES. 

ENTER  ANYTHING  ELSE  TO  RETAIN  THEM. 

SORRY  -  SOMEONE  IS  SENDING  YOU  A  MESSAGE 
PLEASE  TRY  AGAIN  LATER 

CANNOT  LIST  MESSAGES  WHILE  SOMEONE  IS  SENDING  YOU  ONE 

UNEXPECTED  RETURN  CODE  INNNB)  FROM  ATTACH 
PLEASE  TRY  AGAIN  LATER 

ERROR  WHILE  ATTACHING  YOUR  SENDFlL.  IF  IT  HAPPENS 
AGAIN,  SEE  CCRM,  3-7.  AND/OR  CALL  USER  SERVICES. 

FUNCTION  SEND-- 
CALL  AGAIN 

RESPONSE  TO  USER  ENTRY  OF  'QUIT' 

ENTER  YOUR  MESSAGES  -  END  WITH  END 

BEGIN  ENTERING  UP-TO- 80-CHARACTER  MESSAGES.  END  WITH 
SEPARATE  LINE  CONTAINING  END  AND  NO  OTHER  NON-BLANK 
CHARACTERS.  THERE  IS  NO  MORE  PROMPTING  UNTIL  END  IS 
ENCOUNTERED. 

FROM;  YOUR-USER-ID 
TO  :  TO-USER-ID 

SENDFlL  WAS  SUCCESSFULLY  ATTACHED 


INVALID.  MUST  BE  USERSERVIC  OR  4  CHARACTERS  STARTING 
WITH  A.  C,  P,  R  OR  S. 

PLEASE  RE-ENTER  IT  (OR  'QUIT'  TO  STOP  I - 
ENTER  ONE  OF  THE  FOLLOWING: 

4-CHARACTER  USER- ID  f START  WITH  A/C/P/R/Si 
USERSERVIC  l OR  U  OR  USER) 

QUIT 

READING  FROM  FILE  XXXXXXX 

MESSAGES  ARE  BEING  READ  FROM  INDICATED  FILE 

SORRY  -  I  COULDN'T  SEND  YOUR  MESSAGES 
PLEASE  TRY  AGAIN  LATER 

EXTEND  OF  SENDFIL  FAILED 

SORRY.  XXXX  IN  NOT  ACCESSIBLE 

SPECIFIED  USER'S  SENDFIL  IS  BEING  USED  BY  SOMEONE  ELSE 

SORRY.  XXXX  CANNOT  RECEIVE  MESSAGES 

SPECIFIED  USER  DOES  NOT  HAVE  A  FUE  CALLED  SENDFIL 

TO  WHOM  «a-CHARACTER  USER-  ID  -OR-  USERSERVIC ?- 

USER- ID  ON  EXECUTE  CARD  WAS  OMITTED  OR  INVALID.  ENTER 
IT  HOW. 

. . .  TRUNCATED 

ONL1  FIRST  80  CHARACTERS  READ.  LISTED  CHARACTERS 
IGNORED. 

YOUR  MESSAGE  HAS  BEEN  SENT 

THE  SENDFIL  WAS  SUCCESSFULLY  EXTENDED 

author 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 
DATE  WRITTEN:  05/20/77 


DATE < SI  REVISED 

03/01/78*-  CONVERT  TO  CCL 
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PURPOSE 

1  UP  T0  5  'DISPLAY'  FIELDS  USING  'COBOL6' 
wOllmhNu  SEQUENCE  {'FILE'  CARDS  REQUIRED) 

FUNCTIONAL  CATEGORIES;  Ml 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

SEGI N . SORT  , IN . OUT , OUTPUT , NF.S1 ,N1 , ADI ,S2.N2. AD2. S3.N3 , 
-A • N4 . tuA . ab , N5 . ADS . 


DESCRIPTION  OF  PARAMETERS 

-1*,  "  INPUT  FILE  TO  BE  SORTED 

OU i  “  Ou i PUT  SORTED  FILE 

OUTPUT  -  L1STA5LE  OUTPUT  (SORT  DIRECTIVES » 

fjF  '  NUMBER  OF  FIELDS  TO  BE  SORTED 

’  STARTING  POSITION  OF  FIRST  PQ-T  fl-D 
N1  -  NUMBER  OF  POSITIONS  IN  FIRST  SORT  FIELD 

ADl  -  l  -  ASCENDING  SORT 

_  u  DtSCtNDI NG  SORT 

>N2 , *  S«wt  F uk  aECOND  SOkT  FI^lD 

S5.N5.ADS  -  SAME  FOR  FIFTH  SORT  FIELD 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

max  FL:  6D000B  (USUALLY) 


REMARKS 

The  USER  MUST  SUPPLY  FIlE'  CARDS  FOR  Thp  input  4Hn  hut 
FUSS  (IN  AND  OUT-.  BEFORE  USING  7H1«  PROCEDURE  ?uev  « 

£4fH  *7  i  t  *  ci  — —  --  -  -  !ni*  *  m 


Aun  noi 


V 


PROCEDURE  ' SORTCZ' 


PURPOSE 

SORT  (SORTMRG)  UP  TO  5  'DISPLAY'  FIELDS  USING  ' C0B0L6' 
COLLATING  SEQUENCE  ('FILE'  CARDS  NOT  REQUIRED) 

FUNCTIONAL  CATEGORIES:  Ml 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, SORTCZ, . IN , OUT .OUTPUT .MRL.NF , S 1 . N 1 , AD  1 , S2 , N2 , AD2 , 
S3.N3, AD3.S4,N4,AD4,S5,N5.AD5. 

DESCRIPTION  OF  PARAMETERS 

IN  -  INPUT  FILE  TO  BE  SORTED 

OUT  -  OUTPUT  SORTED  FILE 

OUTPUT  -  LISTABLE  OUTPUT  (SOFT  DIRECTIVES) 

MR L  -  MAXIMUM  RECORD  LENGTH  f ROUNDED  UP  TO  MULTIPLE 

10' 

NF  -  NUMBER  OF  HELDS  TO  BE  SORTED 

SI  -  STARTING  POSITION  OF  FIRST  SORT  FIELD 

N 1  -  NUMBER  OF  POSITIONS  IN  FIRST  SORT  FIELD 

ADI  -  A  -  ASCENDING  SORT 

D  -  DESCENDING  SORT 

S2.N2.AD2  -  SAME  FOR  SECOND  SORT  FIELD 

S5 ,N5 ! AD5  -  SAME  FOR  FIFTH  SORT  FIELD 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL:  60000B  (USUALLY) 

REMARKS 

THIS  PROCEDURE  PROVIDES  'FILE'  CARDS  FOR  BOTH  'IN'  AND 
'OUT'.  EACH  DEFINES  BT=C,RT=Z.  MRL  IS  USER-SPECIFIED 
(DEFAULT:  MRL-90 ) 

TO  SUPPLY  'FILE'  CARDS,  USE  PROCEDURE  'SORT'. 

ERROR  MESSAGES 

TOO  MANY  FIELDS  (MAX  5) 

USER  SPECIFIED  AN  NF  GREATER  THAN  5 

EXAMPLE 

SORT  A  CARD-IMAGE  FILE  ON  COLUMNS  1-5  (ASCENDING)  AND 
41-50  (DESCENDING): 

BEGIN. SORTCZ, , INF] LE .OUTFILE , , 90, 2. 1,5, A, 41, 10, D. 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892,2 
DATE  WRITTEN:  02/07/80 
DATE ( S i  REVISED 


02/24 'fi-  2-107  SORTCZ  -  1  0 


PROCEDURE  ' S2K260' 


PURPOSE 

ATTACH  FILES  FOR  S2000  (VERSION  2.60)  NATURAL  LANGUAGE , 
FORTRAN,  OR  COBOL  PROCEDURAL  LANGUAGE  INTERFACE. 

FUNCTIONAL  CATEGORIES:  Q3  LO 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE. 


USAGE 

BEGIN, S2K260, .LANG. 

DESCRIPTION  OF  PARAMETER 

LANG  -  COB  FOR  COBOL  LANGUAGE  INTERFACE  ROUTINE 

-  FOR  FOR  FORTRAN  LANGUAGE  INTERFACE  ROUTINE 

-  OMITTED  NATURAL  LANGUAGE 

DEFAULT  BEGIN  STATEMENT 

BEGIN. S2K260.  USE  NATURAL  LANGUAGE  ONLY 

MAX  FL:  15000B 

REMARKS 

THIS  PROCEDURE  ATTACHES  THE  FILES  FOR  SYSTEM  200G 
VERSION  2.60.  DC  NOT  USE  BEFORE  READING  THE  NEWSLETTER 
FROM  MR  I  REGARDING  THE  FEATURES  AND  DIFFERENCES  IN  THIS 
VERSION  OF  SYSTEM  2000  (APRIL  19771. 


EXAMPLES 

FOR  NATURAL  LANGUAGE: 


FOR  COBOL  INTERFACE 


FOR  FORTRAN  INTERFACE 


BEGIN, S2K260. 

S2K260 . 

BEGIN, S2K260, , COB. 

PLICOB . 

COPYR , PLILGO, LG0.2 . 

COBOL, 1=TAPE3 . 

FTN, I =  T  APE  3 . 

COPYF, PLILGO, LGO. 
LGO . 

BEGIN, S2K260, , FOR. 

PLIFOR . 

COPYR , PLIGO, LGO, 2, 

FTN, I=TAPE3 . 

COPYF .PLILGO, LGO. 
LGO. 


EXECUTE  S2K 


PRECOMPILER 


REQUIRED 

EXECUTE 


PRECOMPILER 


EXECUTE 


AUTHOR 

SHARON  E  GOOD  -  DTNSRDC  CODE  1892.1 
BRUCE  D  BLACK  -  DTNSRDC  CODE  1892.1  (CDCi 

DATE  WRITTEN:  06/20/77 


DATE ( S )  REVISED 

03/01/78  -  CONVERT  TO  CCL 

07/10/80  -  CHANGE  SETNAME  TO  USRVLB2 

08/05/80  -  CHANGE  ' PLILG0260'  TO  ' S2K2S0LGG' 

2-108  S2K260 
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PROCEDURE  'TIDBITS' 

PURPOSE 

LIST  FILE  OF  TIDBITS  (HINTS  ON  IMPROVED  COMPUTER  USAGE) 

FUNCTIONAL  CATEGORIES:  01 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, TIDBITS, , OUTPUT , LEFT . 

DESCRIPTION  OF  PARAMETERS 
OUTPUT  -  LISTABLE  OUTPUT 

LEFT  -  OMITTED  OR  'LEFT'  -  PRINT  ON  LEFT  SIDE  OF  PAGE 
ANYTHING  ELSE  -  PRNT  CENTERED  ON  WIDE  PAPER 

DEFAULT  BEGIN  STATEMENT 

BEGIN, TIDBITS. .OUTPUT, LEFT. 

MAX,  FL:  32000B 

REMARKS 

NONE 

MESSAGES 

<OUTPUT>  HAS  TIDBITS 

INDICATES  SUCCESSFUL  COMPLETION  (LEFT-JUSTIFIED  PRINTOUT) 

<OUTPUT >  HAS  TIDBITS  (CENTERED) 

INDICATES  SUCCESSFUL  COMPLETION  (CENTERED  PRINTOUT! 


AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 


DATE  WRITTEN:  08/01/77 

DATE ( S )  REVISED 

03/01/78  -  CONVERT  TO  CCL 


05/01/78 
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PROCEDURE  'TRANPAK' 


PURPOSE 

COPY  CONTENTS  FROM  ONE  DEVICE  SET  TO  ANOTHER'  FOR  BACKUP 

FUNCTIONAL  CATEGORIES:  K3 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 


USAGE 

BEGIN , TRANPAK , , VSNF . FS, RDF , CNF .MDF , VSNT , TS , TKF , TKT . 


DESCRIPTION  OF  PARAMETERS 

VSNF  -  VSN  OF  PACK  COPIED  FROM 

FS  -  SETNAME  COPIED  FROM 

RDF  -  USER  READ  PASSWORD  INITIALIZED  ON  DUM  FILE 

CNF  -  USER  CONTROL  PASSWORD  INITIALIZED  ON  DUM  FILE 

MDF  -  USER  MODIFY  PASSWORD  INITIALIZED  ON  DUM  FILE 

VSNT  -  VSN  OF  PACK  TO  COPY  TO 


TS  -  SETNAME  TO  COPY  TO 

TKF  -  DEVICE  SET  PASSWORD  COPIED  FROM 

TKT  -  DEVICE  SET  PASSWORD  COPIED  TO 


DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

IF  NO  TURNKEYS.  MAY  OMIT  THE  LAST  2  PARAMETERS. 

MAX  FL: 

REMARKS 

PERFORMS  BOTH  PACK  MOUNTS  IN  PROCEDURE. 

OUTPUT  IS  A  LIST  OF  FILES  MOVED  WITH  ID  AND  CYCLE  OF  EACH 


EXAMPLE 

BEGIN.  TRANPAK, , DVS299 , SG 1 PK . RDPW . CNPW, MDPW , DVS476 . SG2PK  . 
AUTHOR 

SHARON  E  GOOD  -  DTNSRDC  CODE  1B92.1 

DATE  WRITTEN:  07/02/76 

DATE ( S )  REVISED 

03/01/78  -  CONVERT  TO  CCL 
01/18/79  -  ADD  DEVICE  SET  PASSWORDS 
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TRANPAK 
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PROCEDURE  'UPDADD' 


.  *  c 


PURPOSE 

ADD  ONE  DECK  TO  AN  UPDATE  LIBRARY 

FUNCTIONAL  CATEGORIES:  K3  Q7 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN , UPDADD, , LIB. ID. PROG, AFTER, LFN, AC, PW1 ,PW2,CtS. 

DESCRIPTION  OF  PARAMETERS 

LIB  -  FIRST  PART  OF  PFN 

(FULL  PFN  IS  L I B_PL ) 

ID  -  ID  UNDER  WHICH  IT  IS  CATALOGED 

PROG  -  DECK  NAME  OF  ROUTINE  TO  BE  ADDED 

{ ' *DECK  PROG'  IS  GENERATED  AUTOMATICALLY) 

AFTER  -  DECK  NAME  IT  IS  TO  FOLLOW 

(IF  OMITTED,  NEW  DECK  GOES  AT  END  OF  LIBRARY) 

LFN  -  LFN  OF  FILE  CONTAINING  DECK  TO  BE  ADDED 
(NO  ♦DECK  CARD) 

AC  -  JOB  ORDER  NUMBER  FOR  CATALOG 

l MAY  BE  OMITTED! 

PW1.PW2  -  PASSWORDS 
C  -  COMPILE  FILE  (0  FOR  NONE! 

S  -  SOURCE  FILE  (0  FOR  NONE! 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL:  420G0B 

REMARKS 

THE  LOWEST  CYCLE  OF  LJB_PL  IS  PURGED,  IF  POSSIBLE.  AT  LEAST 
2  CYCLES  ARE  ALWAYS  RETAINED. 


AUTHOR 

DAVID  V  SOMMER 


DTNSRDC  CODE  1892.2 


i . . . . . . . ifiiii . I . Mi . lilniii . . 


PROCEDURE  ' UPDDELE' 


PURPOSE 

DELETE  ONE  DECK  FROM  AN  UPDATE  LIBRARY 

FUNCTIONAL  CATEGORIES:  K3  Q7 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 


USAGE 

BEGIN. UPDDELE, , L I B , ID , PROG , AC , PW 1 , PW2 , S . 


DESCRIPTION 

LIB 

ID 

PROG 


PW  1 
e; 


pw; 


CF  PARAMETERS 
FIRST  PART  OF  PFN 
(FULL  PFN  IS  L I B_PL I 
ID  UNDER  WHICH  IT  IS  CATALOGED 
DECK  NAME  OF  ROUTINE  TO  BE  DELETED 
( ' *DECK  PROG'  IS  GENERATED  AUTOMATICAL! 
JOB  ORDER  NUMBER  FOR  CATALOG 
(MAY  BE  OMITTED) 

PASSWORDS 

SOURCE  FILE  f 0  FOR  NONE1 


DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 


MAX  FL:  42000B 


REMARKS 

NONE 


AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 
DATE  WRITTEN:  03/10/76 


DATE ( S)  REVISED 

03/01/78  -  CONVERT  TO  CCL 


2-1 12 


UPDDELE 


. . Mi . . . rtf . I . . . . . . . . . 


PROCEDURE  ' UPDDQC' 

PURPOSE 

LIST  DOCUMENTATION  FOR  PROCEDURES  UPDADD,  UPDDELE ,  UPDDOC, 
UPDGET,  UPDL1ST,  UPDREPL 

FUNCTIONAL  CATEGORIES:  01 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN. UPDDOC. .OUTPUT, LEFT. 


DESCRIPTION  OF  PARAMETERS 
OUTPUT  -  LiSTABLE  OUTPUT 

LEFT  -  OMITTED  -  PRINT  LEFT - JUST  I F 1ED  ON  PAGE 
NON-BLANK  -  PRINT  CENTERED  ON  WIDE  PAGE 

DEFAULT  BEGIN  STATEMENT 
BEGIN. UPDDOC. .OUTPUT. 


MAX  FL:  25000B 
REMARKS 

A  BANNER  PAGE  FRECEDES  THE  LIST  AND  CONTAINS  THE  WORD 
'UPDDOC'  .  A  BANNER  PAGE  WITH  THE  WORD  'END'  FOLLOWS  THE 
LIST. 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 

DATE  WRITTEN:  02/10/77 

DATE \ S I  REVISED 

03/01/78  -  CONVERT  TO  CCL 


05/01  ’78 
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PROCEDURE  ' UPDGET' 


PURPOSE 

EXTRACT  ONE  DECK  FROM  AN  UPDATE  LIBRARY  (UPDATE, C!  AND, 
OPTIONALLY,  ADD  EDITOR  SEQUENCING 

FUNCTIONAL  CATEGORIES:  K3  Q7 


LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, UPDGET. , LIB, ID. DECK, COMPILE, C72.E, START. INCR.PW1.PW2. 
DESCRIPTION  OF  PARAMETERS 


ID 

DECK 

COMPILE 


START 


PW1.PW5 


1-7  CHARACTERS:  FIRST  PART  OF  PFN 
(FULL  PFN  IS  LIB_PL I 
ID  UNDER  WHICH  IT  IS  CATALOGED 
DECK  NAME  OF  ROUTINE  TO  BE  EXTRACTED 
COMPILE  FILE  I  UPDATE , C  =  COMP I LE  > 

(WILL  CONTAIN  EXTRACTED  DECK,  UNLESS  C?2  USED! 

IF  SPECIFIED.  WILL  CONTAIN  72 -COLUMN  COPY  OF  THE 
COMPILE  FILE.  THE  COMPILE  FILE  IS  NOT  AVAILABLE 
TC  THE  USER. i 

OMITTED  -  DO  NOT  ADD  EDITOR  SEQUENCING 
ANY  WORD  STARTING  WITH  '  E'  -  ADD  EDITOR  SEQUENCING 
(THIS  PARAMETER  IS  EFFECTIVE  ONLY  IF  PARAMETER 
' C72'  IS  SPECIFIED) 

FIRST  EDITOR  SEQUENCE  NUMBER  (IF  EDI <CR  SEQUENCING 
REQUESTED)  (DEFAULT:  20‘< 

INCREMENT  FOR  EDITOR  SEQUENCING  (DEFAULT:  10) 

NOTE:  DEFAULT  START  AND  1NCR  WILL  GIVE  10  TIMES 

THE  COMPILE  FILE  CARD  NUMBERS  IF  THE  DECK  HAS 
NO  MODIFYING  IDENTS. 

PASSWORDS 


o 


DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL:  42000B 

REMARKS 

NONE 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 


DATE  WRITTEN:  03/10/76 
DATE ( S)  REVISED 

07/13/76  -  ADD  EDITOR  SEQUENCING  OPTION 
02/04/77  -  ADD  PASSWORDS 
03/01/78  -  CONVERT  TO  CCL 


05/01/78 


«  ■»  / 
d  f  ?  *i 
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PROCEDURE  ' UPDGETS' 


PURPOSE 

EXTRACT  ONE  DECK  FROM  AN  UPDATE  LIBRARY  (UPDATE, S)  AND, 
OPTIONALLY,  ADD  EDITOR  SEQUENCING 

FUNCTIONAL  CATEGORIES:  K3  Q7 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, UPDGETS , , L I B , I D , DECK , SOURCE , C72 , E , START , I NCR , PW1 ,PW2. 


DESCRIPTION  OF  PARAMETERS 

LIB  -  1-7  CHARACTERS:  FIRST  PART  OF  PFN 
(FULL  PFN  IS  L I B _ PL ) 

ID  -  ID  UNDER  WHICH  IT  IS  CATALOGED 

DECK  -  DECK  NAME  OF  ROUTINE  TO  BE  EXTRACTED 
SOURCE  -  SOURCE  FILE  ( UPDATE , S=SOURCE ) 

(COMDECKS,  IF  ANY.  INCLUDED) 

\ WI LL  CONTAIN  EXTRACTED  DECK.  UNLESS  C72  USED) 

C72  -  IF  SPECIFIED.  WILL  CONTAIN  72-COLUMN  COPY  OF  THE 

COMPILE  FILE.  THE  COMPILE  FILE  IS  NOT  AVAILABLE 
TO  THE  USER.  ) 

E  -  OMITTED  -  DO  NOT  ADD  EDITOR  SEQUENCING 

ANY  WORD  STARTING  WITH  ' E*  -  ADD  EDITOR  SEQUENCING 
(THIS  PARAMETER  IS  EFFECTIVE  ONLY  IF  PARAMETER 
' C72'  IS  SPECIFIED)  - 

START  -  FIRST  EDITOR  SEQUENCE  NUMBER  (IF  EDITOR  SEQUENCING 


PROCEDURE  ' UPDGETT' 

PURPOSE 

EXTRACT  ONE  DECK  FROM  AN  UPDATE  LIBRARY  (UPDATE, T)  AND, 
OPTIONALLY,  ADD  EDITOR  SEQUENCING 

FUNCTIONAL  CATEGORIES:  K3  Q7 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, UPDGETT,, LIB, ID, DECK, SOURCE, C72.E, START, INCR.PW1.PW2. 

DESCRIPTION  OF  PARAMETERS 

LIB  -  1-7  CHARACTERS:  FIRST  PART  OF  PFN 
(FULL  PFN  IS  L I B _ P L ) 

ID  -  ID  UNDER  WHICH  IT  IS  CATALOGED 

DECK  -  DECK  NAME  OF  ROUTINE  TO  BE  EXTRACTED 
SOURCE  -  SOURCE  FILE  ( UPDATE . T=SOURCE I 
(NO  COMDECKS  INCLUDED! 

■WILL  CONTAIN  EXTRACTED  DECK.  UNLESS  C72  USED! 

C72  -  IF  SPECIFIED.  WILL  CONTAIN  72-COLUMN  COPY  OF  THE 

COMPILE  FILE.  THE  COMPILE  FILE  IS  NOT  AVAILABLE 
TO  THE  USER. I 

E  -  OMITTED  -  DO  NOT  ADD  EDITOR  SEQUENCING 

ANY  WORD  STARTING  WITH  ' E'  -  ADD  EDI TQR  SEQUENCING 
(THIS  PARAMETER  IS  EFFECTIVE  ONLY  IF  PARAMETER 
1 C72'  IS  SPECIFIED) 

START  -  FIRST  EDITOR  SEQUENCE  NUMBER  (IF  EDITOR  SEQUENCING 
REQUESTED)  (DEFAULT:  20) 

] NCR  -  INCREMENT  FOR  EDITOR  SEQUENCING  (DEFAULT:  10) 

NOTE:  DEFAULT  START  AND  1NCR  WILL  GIVE  10  TIMES 

THE  COMPILE  FILE  CARD  NUMBERS  IF  THE  DECK  HAS 
NO  MODIFYING  I DENTS. 

PW1.PW2  -  PASSWORDS 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  FL:  42000B 


REMARKS 

NONE 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 

DATE  WRITTEN:  05/13/77 

DATEfS!  REVISED 

03/01/78  -  CONVERT  TO  CCL 


05/01/78 
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UPDGETT 


PROCEDURE  ' UPDLIST' 


PURPOSE 

LIST  DECK/COMDECK  NAMES  IN  UPDATE  LIBRARY  WITH  COUNT  OF 
RECORDS  IN  EACH  DECK/COMDECK 


FUNCTIONAL  CATEGORIES:  01  03 


LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGI N, UPDLIST. .LIB. ID. OUTPUT. 

DESCRIPTION  OF  PARAMETERS 

LIB  -  FIRST  PART  PF  PFN 

(FULL  PFN  IS  L I B_P L • 

ID  -  ID  UNDER  WHICH  IT  IS  CATALOGED 

OUTPUT  -  LI  STABLE  OUTPUT 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 


MAX  FL:  42000B 


REMARKS  _  _ _ _ 

UPDATE  IS  RUN  TO  GET  A  SOURCE  FILE.  i HEN  PROGRAM  DECK 
UTILITY  IS  RUN  AGAINST  THE  SOURCE  FILE-  THEREFORE,  'aNY 
IDENTS  WILL  NOT  BE  LISTED.  AS  THEY  HAVE  ALREADY  BEEN 
PROCESSED  BY  UPDATE. 


ON 


AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  18S2.2 

DATE  WRITTEN:  04/12/76 

DATEiS)  REVISED 
04/23/76 
05/04/76 
05/25/76 

03/01/78  -  CONVERT  TO  CCL 


PROCEDURE  ' UPDREPL' 


PURPOSE 

REPLACE  ONE  DECK  IN  AN  UPDATE  LIBRARY 

FUNCTIONAL  CATEGORIES:  K3  07 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 


USAGE 

BEGIN. UPDREPL, .LIB. ID. PROG .AFTER, LFN. AC. PW1.PW2.C.S. 
DESCRIPTION  OF  PARAMETERS 


LIB 

-  FIRST  PART  OF  PFN 
<  FULL  PFN  IS  LIB  PL  1 

ID 

-  ID  UNDER  WHICH  IT  IS  CATALOGED 

PROG 

-  DECK  NAME  OF  RuJTINE  TO  BE  REPLACED 

r*D£CK  PROG'  IS  GENERATED  AUTOMATICA 

LLY ) 

AFTER 

-  DECK  NAME  IT  IS  TO  FOLLOW 

•IF  OMITTED.  NEW  DECK  GOES  AT  END  OF 

LIBRARY 

LFN 

-  LFN  OF  FILE  CONTAINING  DECK  TO  BE  REP 
iNO  *D£CK  CARD • 

LACED 

AC 

-  JOB  ORDER  NUMBER  FOR  CATALOG 
(MAY  BE  OMITTED* 

PW1 .PW2 

-  PASSWORDS 

C 

S 


COMPILE  FILE  *0  FOR  NONE! 
SOURCE  FILE  <0  FOR  NONE l 


DEFAULT  5EGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 


MAX  FL:  42000B 


REMARKS 

THE  LOWEST  CYCLE  OF  LJE_PL  IS  PURGED.  IF  POSSIBLE.  AT  LEAST 
2  CYCLES  ARE  ALWAYS  RETAINED. 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1B92.2 


DATE  WRITTEN:  03/11/76 
DATE < S )  REVISED 

05/25/76  -  DOUBLE  UPDATE  REPLACED  BY  SINGLE  UPDATE 
03/01/78  -  CONVERT  TO  CCL 
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* 
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PROCEDURE  'UTILITY' 

PURPOSE 

EXECUTE  A  PROGRAM  ON  EDI TL IB  USER  LIBRARY  'UTILITY' 

FUNCTIONAL  CATEGORIES:  LO  Q3 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, UTILITY. . PROG.PARAMS. 

DESCRIPTION  OF  PARAMETERS 

PROG  -  PROGRAM  TO  BE  EXECUTED 
PARAMS  -  UP  TO  19  PARAMETERS  FOR  'PROG' 

DEFAULT  BEGIN  STATEMENT 

NO  MEANINGFUL  DEFAULT  VALUES 

MAX  -L:  DEPENDS  ON  PROGRAM  BEING  EXECUTED 

REMARKS 

NONE 

AUTHOR 

"  DAVID  V  SOMMER  -  DTNSRDC  CODE  1692.2 

DATE  WRITTEN:  EARLY  1975 

DATEiS!  REVISED 

03/01/78  -  CONVERT  TO  CCL 


. lull . . . . . . . . . . . . 


PROCEDURE  'VENUS 


PURPOSE 

ATTACH  AND  EXECUTE  ONE  OF  THE  VENUS  RETRIEVAL  PROGRAMS 

FUNCTIONAL  CATEGORIES:  SO 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 


USAGE 

BEGIN, VENUS. .WHICH, INPUT, OUTPUT .SUBSET. 


DESCRIPTION  OF  PARAMETERS 

WHICH  -  VENUS  PROGRAM  DESIRED 

OMITTED  -  VENUS  {SINGLE  FILE  VERSION) 

MF  -  VENUS  {MULTIPLE  FILE  VERSION) 


INPUT 


OUTPUT 

SUBStT 


PL  *  VENPL  (PLOTTING  LANGUAGE  PROCESSOR 

RP  -  VENRP  (REPORT  GENERATOR) 

COMMAND  INPUT  FILE 

(IF  TERMINAL.  USER  MUST  ' CONNECT . INPUT' ) 

LI  ST  ABLE  OUTPUT 

(IF  TERMINAL.  USER  MUST  'CONNECT .OUTPUT*  » 
OUTPUT  FILE  FOR  THE  SUBSET  COMMAND 


DEFAULT  BEGIN  STATEMENT 

BEGIN. VENUS. ..INPUT. OUTPUT, SUBSET. 


MAX  FL:  6 1 0008  (MF  MAY  NEED  MORE) 
REMARKS 

FOR  VENUS  PROBLEMS,  CONTACT: 

RAY  S1MANOWITH 

DTNSRDC  CODE  2731 

(301 )  267-3240  (ANNAPOLIS) 

pcpnp  SSAGF ^ 

FIRST  PARAMETER  «'<WHICH>!  INVALID 
MUST  BE  ONE  OF  MF .  PL.  RP  OR  OMITTED 
SELF-EXPLANATORY 

AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 
DATE  WRITTEN.  09/20/77 


DATEIS)  REVISED 

03/01/78  -  CONVERT  TO  CCL 


PROCEDURE  '  WHATLIB' 


PURPOSE 

LIST  LIBRARIES  SPECIFIED  IN  LAST  'LIBRARY'  COMMAND 

FUNCTIONAL  CATEGORIES:  QO 

LOCATION  OF  PROCEDURE 

SYSTEM  PUBLIC  ACCESS  PROCEDURE  FILE 

USAGE 

BEGIN, WHATLIB, .OUTPUT. 

DESCRIPTION  OF  PARAMETER 
OUTPUT  -  LISTABLE  OUTPUT 

(TO  PRINT  AT  INTERACTIVE  TERMINAL,  MUST  BE 
CONNECTED. ) 

DEFAULT  BEGIN  STATEMENT 
BEGIN, WHATLIB. .OUTPUT. 

MAX  FL:  22000B 

REMARKS 

OF  LIMITED  USE  IN  BATCH. 


AUTHOR 

DAVID  V  SOMMER  -  DTNSRDC  CODE  1892.2 
DATE  WRITTEN:  MID- 1 975 


DATE! SI  REVISED 

03/01/78  -  CONVERT  TO  CCL 


05/01/76 
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WHATLIB 


INITIAL  DISTRIBUTION 


COPIES: 

12  DIRECTOR 

DEFENCE  DOCUMENTATION  CENTER  (TIMA) 

CAMERON  STATION 

ALEXANDRIA,  VIRGINIA  23314 


CENTER  DISTRIBUTION 


COPIES: 


1 

18/1809 

GLEISSNER,  G.  H. 

1 

1804 

AVRUNIN.  L. 

1 

1805 

CUTHILL,  E.  H. 

2 

1809,3 

HARRIS,  D. 

1 

182 

CAMARA.  A.  W. 

1 

184 

SCHOT,  d.  W. 

1 

185 

COR  IN,  T. 

1 

187 

ZUBKOFF,  M.  d. 

1 

189 

GRAY,  G.  R. 

1 

189.1 

H1BBERT,  D. 

1 

189.2 

HAYDEN,  H.  P. 

1 

189.3 

COOPER,  A.  E. 

150 

1892.1 

STRICKLAND,  J.  D. 

20 

1892.2 

SOMMER,  D.  V. 

1 

1892.3 

MINOR,  L.  R. 

1 

1894 

SEALS,  W. 

1 

1896 

GLOVER,  A. 

1 

1896.2 

DENNIS,  L. 

1 

522 

LIBRARY,  CARDEROCK 

1 

522.2 

LIBRARY,  ANNAPOLIS 

DTNSRDC  ISSUES  THREE  TYPES  OF  REPORTS 

1.  DTNSRDC  REPORTS,  A  FORMAL  SERIES,  CONTAIN  INFORMATION  OF  PERMANENT  TECH¬ 
NICAL  VALUE.  THEY  CARRY  A  CONSECUTIVE  NUMERICAL  IDENTIFICATION  REGARDLESS  OF 
THEIR  CLASSIFICATION  OR  THE  ORIGINATING  DEPARTMENT. 

2.  DEPARTMENTAL  REPORTS,  A  SEMIFORMAL  SERIES,  CONTAIN  INFORMATION  OF  A  PRELIM¬ 
INARY,  TEMPORARY.  OR  PROPRIETARY  NATURE  OR  OF  LIMITED  INTEREST  OR  SIGNIFICANCE. 
THEY  CARRY  A  DEPARTMENTAL  ALPHANUMERICAL  IDENTIFICATION. 

3.  TECHNICAL  MEMORANDA,  AN  INFORMAL  SERIES,  CONTAIN  TECHNICAL  DOCUMENTATION 
OF  LIMITED  USE  AND  IN1EREST.  THEY  ARE  PRIMARILY  WORKING  PAPERS  INTENDED  FOR  IN¬ 
TERNAL  USE.  THEY  CARRY  AN  IDENTIFYING  NUMBER  WHICH  INDICATES  THEIR  TYPE  AND  THE 
NUMERICAL  CODE  OF  THE  ORIGINATING  DEPARTMENT.  ANY  DISTRIBUTION  OUTSIDE  DTNSRDC 
MUST  BE  APPROVED  BY  THE  HEAD  OF  THE  ORIGINATING  DEPARTMENT  ON  A  CASE-BY-CASE 
BASIS. 


